Registriert seit: 6. Apr 2005
10.109 Beiträge
|
Re: Texte als .txt speichern und umbenennen
27. Feb 2008, 06:31
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
|
|
Zitat
|