....so ganz funktionierts doch noch nicht
Eigentlich wollte ich ne Datei mit OpenDialog.execute öffnen ,
und dann sollten alle Email-Adressen der Datei in einem
Memo-Textfeld aufgelistet werden.
Er zeigt aber immer nur eine an.
Zitat von
Sharky:
Hai,
das habe ich mal so schnell hingetippelt.
Delphi-Quellcode:
function ExtractiMehl (aValue :
string) :
string;
var
at : integer;
start : integer;
stop : integer;
permittedChar :
SET of Char;
begin
permittedChar := ['
a'..'
z','
.','
_','
-'];
aValue := AnsiLowerCase(aValue);
at := Pos('
@',aValue);
start := at-1;
while (aValue[start]
in permittedChar)
and (start > 0)
do
begin
Dec (start)
end;
stop := at+1;
while (aValue[stop]
in permittedChar)
and (stop < length(aValue))
do
begin
Inc (stop)
end;
result := Copy (aValue,start,(stop-start));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption := ExtractiMehl(Edit1.Text)
end;