am besten du nimmst den code von mr kinzler, den hab ich auch genommen, damit gehts 1a !
Delphi-Quellcode:
var
zeilennr: integer;
DateiName, Zeile: String;
F: TextFile;
begin
OpenDialog.Execute; // Das Ergebnis steht in FileName
// ShowMessage(OpenDialog1.FileName);
DateiName := OpenDialog.FileName; //Der Pfad wird in die Datei gestellt
txtfilename.Text := DateiName;
// ShowMessage(DateiName);
sl:=TStringList.Create; //Objekt erzeugen
sl.Delimiter := ';';
try
//sl.LoadFromFile(DateiName); //Datei in Stringliste laden
AssignFile(F, OpenDialog.FileName);
Reset(F);
Readln(F, Zeile); //Erste Zeile laden
sl.DelimitedText := Zeile; //Zeile der StringListe zuweisen, nun kann man mit der Eigenschaft Count die Anzal der Spalten auslesen, die Spaltenname sthen dann in der Stringliste
//sl.Strings[0] enthält Namen erste Spalte usw.
While not Eof(F) do //Daten laden
begin
Readln(F, S);
Edit1.Text := S;
sl.DelimitedText := s; // Datenzeile wird in Stringliste geschrieben -< Auslesen wie Kopfspalte
end;
finally
//
//sl.free; //Objekt wieder freigeben
edit2.Text := inttostr(sl.count);
end;