Einzelnen Beitrag anzeigen

Brainshock

Registriert seit: 26. Nov 2004
Ort: 37345
214 Beiträge
 
Delphi 7 Professional
 
#2

Re: Problem eine E-Mail abzusenden

  Alt 30. Mai 2008, 07: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
  Mit Zitat antworten Zitat