Dateien in einer Stringliste oder TMemo importieren?

[Sharky]

Hai Heike,

das "formatieren" dürfte kein Problem sein

Hier mal eine veränderte Form meines obigen Codes:

Delphi-Quellcode:

function PadR(aValue : string; aLen : byte; aFill: char): string;
  //right pads a string with spaces
begin
  Result := aValue + StringOfChar(aFill, aLen - Length(aValue));
end;

procedure TForm1.LadenClick(Sender: TObject);
var
  sl1:    TStringList;
  sl2:    TStringList;
  ndx1:   integer;
  nummer: string;
  preis:  string;
  bezeichung: string;
begin
  sl1 := TStringList.Create;
  sl2 := TStringList.Create;
  try
    sl2.Delimiter := ';';
    sl1.LoadFromFile(Dateiname);
    for ndx1 := 0 to Pred(sl1.Count) do
    begin
      sl2.DelimitedText := sl1.Strings[ndx1];
      nummer      := PadR(sl2.Strings[0], 13, ' ');
      bezeichnung := PadR(sl2.Strings[1], 10, ' ');
      Memo1.Lines.add(nummer + bezeichnung + preis);
    end;
  finally
    sl2.Free;
    sl1.Free;
  end;
end;

Edit: Fehler im Code beseitigt