Wyodrębnianie tekstu

0

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

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1