Problem mit einlesen von datei

[himitsu]

Delphi-Quellcode:

var
  sl, sl2: TStringList;
  Loop: Cardinal;
  s: String;
begin
  if OpenDialog1.Execute then
  begin
    sl := TStringlist.Create;
    sl2 := TStringlist.Create;
    try
      sl.LoadFromFile(OpenDialog1.Filename);
      for Loop := 0 to sl.Count - 1 do
      begin
        s := sl.Strings[Loop];
        sl2.Add(Trim(Copy(s, Pos(' ', s), Length(s))));
      end;
      sl2.SaveToFile(OpenDialog1.Filename+'.foo');
    finally
      FreeAndNil(sl);
      FreeAndNil(sl2);
    end;
  end;
end;

oder mit nur einer Stringlist:

Delphi-Quellcode:

var
  sl: TStringList;
  Loop: Cardinal;
  s: String;
begin
  if OpenDialog1.Execute then
  begin
    sl := TStringlist.Create;
    try
      sl.LoadFromFile(OpenDialog1.Filename);
      for Loop := 0 to sl.Count - 1 do
      begin
        s := sl.Strings[Loop];
        sl.Strings[Loop] := Trim(Copy(s, Pos(' ', s), Length(s)));
      end;
      sl.SaveToFile(OpenDialog1.Filename+'.foo');
    finally
      FreeAndNil(sl);
    end;
  end;
end;

Getestet