Office XP - Controls

[Marco Haffner]

Auf die schnelle

Delphi-Quellcode:

program Project1;

uses
  SysUtils, Dialogs, Classes;

var
  List: TStringList;
begin
  if FileExists('XPMenu.pas') then
  begin
    List := TStringList.Create;
    try
      List.LoadFromFile('XPMenu.pas');
      List.SaveToFile('XPMenu.pas');
    finally
      List.Free;
    end;
  end else
    ShowMessage('XPMenu.pas wurde nicht gefunden.');
end.

Grad' nochmal nachgeschaut, habe hier aber #13#10 als Zeilenende.