Einzelnen Beitrag anzeigen

pstruh
(Gast)

n/a Beiträge
 
#4

Re: StringGrid - Minimum, Maximum, Durchschnitt bestimmen

  Alt 18. Sep 2007, 15:50
Hallo, wenn noch nicht gelöst, dann vielleicht so ...
Delphi-Quellcode:
while not EoF(Datei) do
  begin
   readln(Datei, Zeile);
   if Zeile[1]<>'''then begin // << zusätzlich
    SpalteIndex:=0;
    while pos(chr(9), Zeile) <> 0 do
    begin
     sgMess.Cells[SpalteIndex, ZeileIndex]:=copy(Zeile, 1, pos(chr(9), Zeile)-1);
     delete(Zeile, 1, pos(chr(9), Zeile));
     inc(SpalteIndex);
    end;
 sgMess.Cells[SpalteIndex, ZeileIndex]:=Zeile;
 inc(ZeileIndex);
 //Tabelle automatisch um 1 Zeile erhöhen
 sgMess.RowCount:=sgMess.RowCount+1;
 end; // << zusätzlich
end;
  Mit Zitat antworten Zitat