Registriert seit: 26. Nov 2004
Ort: 37345
214 Beiträge
Delphi 7 Professional
|
Re: Problem eine E-Mail abzusenden
30. Mai 2008, 08:40
Ist jetzt erstmal nur Optik, aber sollte:
Delphi-Quellcode:
// Ersetzen der Platzhalter, durch einfaches StringReplace
body.Text:= StringReplace(StringReplace(body.Text, '$user', DBAdvEdit12.Text), '$pw', DBAdvEdit11.Text);
nicht das gleiche machen wie:
Delphi-Quellcode:
text := body.Text;
n := pos('$user',text);
delete(text,n,5);
insert(DBAdvEdit12.Text,text,n);
body.Text := text;
n := pos('$pw',text);
delete(text,n,3);
insert(DBAdvEdit11.Text,text,n);
body.Text := text;
Gruß,
Matthias
|
|
Zitat
|