Hallo,
ich habe folgendes Problem:
ich habe einen String in der ein Text steht in der Mail Adressen drinstehen. Diese Mail Adressen muss ich jetzt rausbekommen.
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var i,f,x,y :integer;
zeile, buchstabe:string;
suchen :boolean;
wort:string;
begin
For f := 1 to Memo2.lines.Count -1 do begin
zeile := Memo2.lines[f];
For i := 1 to length(zeile) do begin
buchstabe := zeile[i];
If buchstabe = '@' then begin
x := i;
end;
While suchen do begin
For y := x downto 1 do begin
mail(zeile[y]);
wort := wort + zeile[y];
end;
end;
end;
end;
end;
Die Function Mail auch noch:
Delphi-Quellcode:
function mail (text:char): boolean;
var test : integer;
begin
If ((ord(text) <=122) and (ord(text) >=65)) or (ord(text) = 95) or (ord(text) = 150) or (ord(text) = 45) then begin
result := true;
end else result := false;
end;
so weit habe ich das bis jetzt gemacht nur leider geht das nicht, könnt ihr mir sagen wo bei denkt fehler sit