moze to i glupie pytanie ale jak zwiekszych jakas wartosc o 1 tzn
mam cos takiego:
procedure TForm1.Button1Click(Sender: TObject);
var
next : string;
begin
// no i tu przydalo by sie cos w stylu next:=id +1
if zazn=ok then
begin
write(next);
dodaj(); end
else
write(next);
end;
Nie jestem pewien, ale może:
Inc(StrToInt(next));
po pierwsze nie poadles czy jest np id i zazn
po drugie jezeli id jest typem liczbowym wystarczy cos takiego next := inttostr(id + 1)
ale tym sposobem next bedzie zawsze to samo najpierw bym zwiekszal id a potem przypisywal je do next
np
inc(id)
next := intotstr(id)
A na przyszlosc dwie prosby zalbo opisuj dokladniej o co ci chodzi albo zamiesczaj wiecej kodu bo wiele musialem się domyslać
a druga sprawa wielu tutejszych bywalców nie lubi tematow w stylu "pomocy".
[dopisane]
Inc(StrToInt(next));
Obawiam sie ze nie bo inc uzywa parametru jako zmiennej i na zakńczenie spróbowałoby przypisać warość do funckji co jest niemożliwe. (przynajmniej teoretycznie tak jest i tak to działa)
Juz prędzej cos takiego
Next := IntToStr(StrToInt(Next) + 1)