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;