Savetofile Problem

[Luckie]

Boah, ich habe keine Ahnung, was du da mit der Stringliste machst:

Delphi-Quellcode:

procedure Save(Text: string; Filename: string);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    try
      sl.Text := Text;
      sl.Lines.SaveToFile(Filename);
    except
      on E: Exception do
        raise E.Create(E.Message);
    end;
  finally
    sl.Free
  end;
end;

function Load(Filename: string): string;
var
  sl: TStringLList;
begin
  sl := TStringList.Create;
  try
    try
      sl.Lines.LoadFromFile(Filename);
     Result := sl.Text;
    except
      on E: Exception do
      raise E.Create(E.Message);
    end; 
  finally
    sl.Free;
  end;
end;

// Aufruf speichern
try
  Save(Memo1.Text, 'C:\foo\bar.cfg');
except
  on E: Exception do
    ShowMessage(E.Message);
end;

// Aufruf laden
try
  Memo1.Text := Load('C:\foo\bar.cfg');
except
  on E:Exception do
    ShowMessage(E.Message);
end;

Es könnten noch kleinere Fehler drin sein. Habe das nur mal eben in Notepad runtergetippt.