Delphi problem -> Datei auslesen, in tabelle einlesen, wie zeilenende definieren?

also mein problem ist, dass ich eine *.csv datei in ein delphi proggi einlese, der inhalt ist in etwa so:

A;b;f;e;s;s;a;e;v
s;d;f;l;k;j;s;h;l;s;
d;f etc.

es können aber auch mehrer buchstaben zwischen den ';' stehen, ein ';' bedeutet in der Tabelle, nächste spalte und ein absatz nächste zeile,

mein prob ist jetzt, dass delphi rummeckert, wenn ich was schreibe mit

while s=eoln oder while s=#13#10 do ...

dann kommt irgendwas mit Eolnerror ...

wie kann ich delphi denn sagen, dass er am zeilenende eine zeile weitergehen soll -> mein problem ist nur wie delphi das zeilenende findet,

hiermal mein quelltext der funzt (jedoch etwas durcheinander und funzt nur wenn nur ein zeichen zwischen den ';' ist):

procedure TForm1.SpeedButton2Click(Sender: TObject);
var Text_datei: Textfile;
s: String;
i,j,x:integer;
begin
s:=Datei_Inhalt;
i:=0;
j:=0;
x:=0;
// While not EoF(Text_datei) do
// BEGIN //#13#10
while Pos(';',S)>0 do
Begin
feld.ColCount:=feld.ColCount+1;
feld.cells[i,j]:=copy(S,1,(pos(';',S)-1));
x:=x+length(feld.cells[i,j]);
delete(S,1,(pos(';',S)));


if x=length(s) then
begin feld.RowCount:=feld.RowCount+1;
inc(j); i:=0; x:=0
end;
inc(i);

End;

//End;
//nur für letztes Zeichen, wo kein Semikolon mehr kommt
feld.cells[i,j]:=S;
end;


procedure TForm1.SpeedButton3Click(Sender: TObject);
var Text_datei: Textfile;
Text_zeilen,s: string;
i,j,x,b,d:integer;
begin

i:=0;
j:=0;
x:=0;
If OpenDialog1.Execute then
Begin
AssignFile(text_datei,OpenDialog1.Filename);
Reset(text_datei);
While not EoF(Text_datei) do {EoF=EndOfFile, so lange bis Dateiende erreicht}
Begin
Readln(text_datei,s);

b:=length(s);
while Pos(';',S)>0 do
Begin
feld.ColCount:=feld.ColCount+1;
feld.cells[i,j]:=copy(S,1,(pos(';',S)-1));
x:=x+length(feld.cells[i,j]);
delete(S,1,(pos(';',S)));
inc(i);
d:=i;
if length(s)=1 then
begin feld.RowCount:=feld.RowCount+1;
inc(j); i:=0; x:=0
end;


End;
feld.cells[d,j-1]:=s;




End;
CloseFile(text_datei);
End;
StatusBar1.Panels.Items[0].Text:=Extractfilename(opendialog1.FileName);
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
var i,j:integer;
begin
For j:=0 TO feld.RowCount-1 DO
FOR i:=0 TO feld.ColCount-1 DO
feld.Cells[i,j]:='';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels.Items[1].Text:=TimeToStr(Now);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
StatusBar1.Panels.Items[2].Text:=DateToStr(Now);
end;

end.
[/PHP]

dabei ist mein problem, dass ich mit einem button die datei auswählen und erst mit dem andern sie einlesen wollte -> wie mach ich das??

Zum Problem mit dem Auslösen der Buttons:

Ermittle einfach im Eventhandler des "Öffnen"-Buttons den Dateinamen und speichere diesen in einer Klassenvariable.
Beim Druck auf den "Verarbeiten"-Button wird dieser Dateiname dann benutzt und anschließend der String für den Dateinamen geleert, um eine Doppelverarbeitung zu verhindern.


Nun zum Einlesen:
Wie wäre es folgendermaßen:

Kleiner Tip, benutze zum Verarbeiten der Zeilen eine String-Liste:
Du brauchst so die Datei gar nicht weiter anfassen, die String-Liste kümmert sich drum.

O Love

thx o love, doch kannste das mal für mich nen bisschen näher erklären?

bsp. datei sieht so aus wie oben angegeben und heißt test.csv

muss ich da trotzdem noch opendialog ... assignfile etc. verwenden oder wie.

was bewirkt csc.list ...xxx genau?

thx

In meinem Beispielcode setzt Du für "AFileName" Deinen durch den OpenDialog geholten Dateinamen ein, also "test.csv".

AssignFile, Reset, etc., fällt weg, die String-Liste macht das alles für Dich. Du hast die komplette Text-Datei zeilenweise in der Liste, auf jede einzelne Zeile kannst Du, wie im Bespiel, per "CSVList" zugreifen. Das ist ein String, nämlich die I. Zeile.

Die Aufbereitung jeder einzelnen Zeile bleibt, aber auch das kann man ändern/optimieren.

O Love

thx, werds demnächst mal ausprobieren.

ACH o love, kommst du bitte zu mir in den unterricht ... als lehrer

Warum nicht? Das habe ich an meiner alten Schule mal für ein halbes Jahr gemacht.

O Love

Hmm, zu spät gelesen, war OLove schneller.
Aber um das mal zu komplettieren, die liste läßt sich ganz leicht dann zeilenweise lesen mittels der eigenschaft count.

also wenn die liste "liste" heißt, kannst du die zeilen so lesen:

for i:=0 TO list.count-1 do begin
... mach was mit der zeile mittels list
end;