przed znakiem

jak sprawdzic co znaduje sie przed znakiem np: @ i potem to wyswielic np na labelu ?

procedure TForm1.Button1Click(Sender: TObject);
var
T : String;
I : Integer;
begin
T := '[email protected]';
I := Pos('@', T);
Label1.Caption := Copy(T, I-1, 1);
end;

tak ale mi wywietla tylko popredznia literke a ja chce caly wyraz przed @

tak ale mi wywietla tylko popredznia literke a ja chce caly wyraz przed @

To cofaj sie literkami az dojdziesz do spacji i to bedzie caly wyraz :) Troche przerob to co napisal vodka_32 Pos i Copy powinno wystarczyc :)

pedro do jakiej spacji chyba do konca.... ale cofac sie chyba petla nie ?? ajak nie to mozesz mi podac kod ?? bo nie zabardzo kapiuje

var s : string;
i:byte;
begin
label1.caption:='';
s:='[email protected]';
i:=0;
repeat
label1.caption := label1.caption + s[i];
inc(i);
until s[i]='@';
end;

dzieki werw0e oto mi chodzilo :P

Sorx, myslalem, ze masz na mysli znak, ktory jest przed '@' a co do kodziku werw0e to sadze mimo wszystko, ze moj kodzik (juz po przerobkach jest szybszy, a na pewno krotszy i czytelniejszy)

procedure TForm1.Button1Click(Sender: TObject);
var
T : string;
I : Integer;
begin
T := '[email protected]';
I := Pos('@', T);
Label1.Caption := Copy(T, 0, I-1);
end;

BTW Sorx, ale ogladalem TV i niedokladnie przecczytalem [wstyd]

Mozna też tak:
uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
T : string;
I : Integer;
begin
T := '[email protected]';
Label1.Caption := LeftStr(T, Pred(Pos('@',T)));
end;