Problem mit einlesen von datei

[obbschtkuche]

So ists kürzer:

Delphi-Quellcode:

var
  sl: TStringList;
begin
  if OpenDialog1.Execute then
  begin
    sl := TStringlist.Create;
    try
      sl.LoadFromFile(OpenDialog1.Filename);
      sl.Text := StringReplace(sl.Text, ' ', '', [rfReplaceAll]);
      sl.SaveToFile(OpenDialog1.Filename+'.foo');
    finally
      FreeAndNil(sl);
    end;
  end;
end;

Aber auch ungetestet