Stringlist und pad String

[blutigerAnfänger]

Zitat von DeddyH:

[edit] Oh, Delphi 6, da gab es das IIRC noch nicht. Klappt es vielleicht hiermit?

leider nein. Deine Prozedur trennt ausschließlich am Trennzeichen beide Strings und stellt sie in verschiedenen Zeilen im memo dar.

[himitsu]

3 Spalten, mit 10, 30 und 20 Zeichen. (ohne großartige Fehlerprüfung)

Delphi-Quellcode:

var
  TheFile, TheLine: TStringList;
  i: Integer;
begin
  TheFile := TStringList.Create;
  try
    TheFile.LoadFromFile('TheFile.csv');
    TheLine := TStringList.Create;
    try
      for i := 0 to TheFile.Count - 1 do begin
        TheLine.Text := StringReplace(TheFile[i], #9, sLineBreak, [rfReplaceAll]);
        TheFile[i]   := Format('%.10s%.30s%.20s', [TheLine[0], TheLine[1], TheLine[2]]);
      end;
    finally
      TheLine.Free;
    end;
    TheFile.LoadFromFile('TheFile.dat');
  finally
    TheFile.Free;
  end;

[DeddyH]

Meine Prozedur ist nur als Ersatz für das Trennen mit Delimiter/DelimitedText gedacht, also statt der Zeile

Zitat:

sl2.DelimitedText := sl1.Strings[ndx1];

einfach
SplitString(sl1[ndx1], #9, sl2); aufrufen, Rest wie gehabt.