Witam. Mam problem. POtrzebuje pilnie znalezc sposob w jaki moge okreslic, czy w danym ciagu znakow jest zawarty znak @ (at). Chodzi mi dokladnie o to, by okreslic czy pzry podawaniu do formularza adresu email jest on podany w prawidlowej formie. Jesli to pomoze zalaczam fragment kodu z tlumaczeniem:
if (Edit8.Text<>'') then
begin
pom1:=Edit8.Text;
l1:=Length(pom1);
l3:=0;
for l2:=0 to 0 do
begin
if (pom1[l2] in ['A'..'Z']) or (pom1[l2] in ['a'..'z']) or (pom1[l2] = '-') or (pom1[l2] = ' ') or (pom1[l2] in ['0'..'9']) or (pom1[l2] = '.') then
Inc(l3);
end;
for l2:=1 to l1 do
begin
if (pom1[l2] in ['A'..'Z']) or (pom1[l2] in ['a'..'z']) or (pom1[l2] = '-') or (pom1[l2] = ' ') or (pom1[l2] in ['0'..'9']) or (pom1[l2] = '.') then
Inc(l3);
end;
if (l1<>l3) then
begin
Inc(popr);
showmessage('Blednie wprowadzony adres email');
end;
end;
Potrzebuje sposobu, by w "pom1 " sprawdzic czy istnieje tam znak @. Pilne. Z gory dzieki za pomoc:)