Ĺadny brzuch
Potrzebuje kodzik, zwracający tekst po ostatnim znaku, np. przecinku (","). Kombinowałem z funcją Pos() ale coś mi sie zrypało i wkońcu dałem sobie spokój (petle, kopiowanie tekstu od nastepnego znaku z pos itd...).
dokładnie, chodzi mi o coś takiego: z ciągu ala,ma,kota,a,kot,ma,forum wyświetliło forum
(tekst po ostatnim przecinku)
procedure TForm1.Button1Click(Sender: TObject); var s:string; i:integer; begin s:='ala,ma,kota,a,kot,ma,forum'; for i:=length(s) downto 1 do if s[i]=',' then break; s:=copy(s,i+1,length(s)-i); caption:=s; end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
dokładnie, chodzi mi o coś takiego: z ciągu ala,ma,kota,a,kot,ma,forum wyświetliło forum
(tekst po ostatnim przecinku)
procedure TForm1.Button1Click(Sender: TObject); var s:string; i:integer; begin s:='ala,ma,kota,a,kot,ma,forum'; for i:=length(s) downto 1 do if s[i]=',' then break; s:=copy(s,i+1,length(s)-i); caption:=s; end;