Chodzi mi o text, właściwie to nie wiem jak to zrobić czy z funkcją pos czy jak? mianowicie jest taka sprawa:
mam np adres w edicie1: [email protected] i chce żeby w edicie dwa było tylko: "KGB" czyli skopiować teźt od małpy do kropki jak to zrobić?
0
0
wysil sie troche to naprawde nie boli ..
s:=edit1.text;
PosA:=Pos('@',s)+1;
I:=PosA;
repeat
inc(i);
until s[i]='.';
Posb:=i-Posa;
edit2.text:=copy(s,PosA,PosB);
P.S
nie testowałem więc ... a i pozaty zmienne to se zam zadeklaruj
0
for i := 1 to length(tekst) do begin
if text[i] = '@' then zapisuj := true else
if text[i] = '.' then zapisuj := false;
if zapisuj then nowyTekst := nowyTekst+tekst[i];
end;
0
Może i nie testowałeś ale działa poprawnie