Spaltenweise auf TStringList zugreifen

[jaenicke]

Zitat von aaaaaaaaaa_10:

Wollte nur schauen, was drin steht .

Wofür gibts den Debugger?

Naja, da du ja anscheinend keinen kompletten Code posten willst, kann ich da auch nicht viel zu sagen außer dass du anscheinend nix mit den Spalten machst...

Hier mal nen kleines Beispiel (ungetestet):

Delphi-Quellcode:

var
  FileContents, LineCols: TStringList;
  i, j: Integer;
begin
  FileContents := TStringList.Create;
  try
    FileContents.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'TestFile.txt');
    LineCols := TStringList.Create;
    try
      LineCols.Delimiter := #9;
      LineCols.StrictDelimiter := True;
      for i := 0 to Pred(FileContents.Count) do
      begin
        LineCols.DelimitedText := FileContents[i];
        for j := 0 to Pred(LineCols.Count) do
          ShowMessage('Zeile ' + IntToStr(i) + ', Spalte ' + IntToStr(j) + ': ' + LineCols[j]);
      end;
    finally
      LineCols.Free;
    end;
  finally
    FileContents.Free;
  end;