q code umschreiben

also ich habe früher delphi 5 benutzt komme damit auch bestens klar doch seit ich auf delphi 2005 umgestigen bin komme ich nicht mer klar also ich wolte fragen ob jemand so nett ist und mir den q code in delphi 2005 umschreibt

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

  NMSMTP1.Host := 'smtp.web.de';

  NMSMTP1.UserID := 'UserID';

  NMSMTP1.PostMessage.ToAddress.Text := 'xxxxx@web.de';

  NMSMTP1.PostMessage.FromAddress := 'xxxxx@web.de';

  NMSMTP1.PostMessage.subject := ':'+edit1.text;

  NMSMTP1.PostMessage.Body.Add(':'+edit1.text);

  NMSMTP1.PostMessage.Body.Add(':'+edit2.text);

  NMSMTP1.Connect();

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

NMPOP31.Host := 'pop3.web.de';

NMPOP31.UserID := 'xxxxx';

NMPOP31.Password :=  'xxxxxxxxxx';

NMPOP31.Connect();

end;

q code umschreiben

q code umschreiben

Forumregeln