Einzelnen Beitrag anzeigen

Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.673 Beiträge
 
Delphi 11 Alexandria
 
#14

Re: Spaltenweise auf TStringList zugreifen

  Alt 27. Jul 2009, 09:08
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;
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat