...der Aufruf erfolgt so....
Delphi-Quellcode:
procedure TForm2.Button7Click(Sender: TObject);
var Datei1:String;
begin
if opendialog1.Execute then
begin
Datei1:=opendialog1.FileName;
unit13.Form13.Show;
memo1.Lines.LoadFromFile(Datei1);
ExtracteMail (Memo1.text);
unit13.form13.panel1.Caption:= inttostr(i)+' '+'gefundenen Email-Adressen';
unit13.Form13.Caption:= Datei1;
end;
end;
die Datei hat folgenden Inhalt (ich die tatsächlichen Emails etwas abgeändert, dient nur zu Testzwecken ):
thomasf.ppppppp@mail.de bbbbbbbbbbfffffffffrrrrrttttttt´+#.mx<thomasf_gggg g@mail.de"kkkkkkkkkkk
thomasf_ttttzzzz@mail.com hlfootjhjkgggggggggggggggsssssssssssss"""""ÄÄÄÄÄ
thomasf_ggghhhrrr@t-online.de ÄGGGGGGG
das Ergebnis schaut dann so aus :
thomasf.ppppppp@mail.de
thomasf_ggggg@mail.de" <---------- Anführungszeichen
thomasf_ttttzzzz@mail.com
thomasf_ggghhhrrr@t-online.de
bis auf das Anführungszeichen funktioniert alles einwandfrei