Texte als .txt speichern und umbenennen

[marabu]

Moin,

schau mal:

Delphi-Quellcode:

const
  DemoText
  = 'Ich geh und kaufe Farbe und Pinsel im Nu'#13#10
  + 'eine Rolle Tapete und Nägel dazu.'#13#10
  + 'Der Verkäufer fragt in leutseligem Ton:'#13#10
  + '"Ist das Alles?"'#13#10
  + 'Ich sag: "Ja, ''n Hammer hab ich schon!"'#13#10
  + 'Er guckt dabei so komisch, was hat er nur,'#13#10
  + 'was soll beim Tapezieren schwierig sein,'#13#10
  + 'ich hab doch Abitur.'#13#10
  ;

var
  fnOld, fnNew: TFileName;

begin
  with TestLabel, Memo.Lines do
  begin
    Text := DemoText;
    Height := Height * Count;
    Caption := Text;
  end;

  ShowMessage(IfThen(RenameFile(fnOld, fnNew), 'success', 'failure'));
end;

Freundliche Grüße