hallo leute, habe folgendes problem.
ich benutze um eine
csv einzulesen folenden code von mkinzle.
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;
die liesst auch wunderbar alles in die stringliste. wenn jetzt aber leerzeichen vorkommen, dann schreibt er pro leerzeichen 1 neue zeile, was kann ich dagegen machen ?