Einzelnen Beitrag anzeigen

Benutzerbild von rhodan
rhodan

Registriert seit: 4. Okt 2005
Ort: Hamburg
150 Beiträge
 
Delphi 7 Personal
 
#1

Nach max.999 Gridzeilen eine Datei in grid nr. 2 fortführen?

  Alt 11. Okt 2005, 09:01
Moin,

hab gerade nen ziemlichen schreck bekommen als ich sehen musste wie die datei die ich in ein Stringgrid lud nach 999 Zeilen abgeschnitten wurde

das hier ist der code mit dem ich mein grid fülle:

Delphi-Quellcode:
var
datei : TextFile;
  dateiname : String;
  zeile : String;
  inhalt : String;
  perslist : Sarr;
  pers : Sarr;
i, j : integer;
  
begin
  dateiname := ('c:\rankinglist.htm');
  AssignFile(datei, dateiname);
  reset(datei);
  inhalt := '';
  repeat
    Readln(datei, zeile);
    inhalt := inhalt + zeile;
  until eof(datei);
  CloseFile(datei);
  inhalt := getTable(inhalt);
  perslist := getEntries(inhalt);

  i := 0;
  while (perslist[i] <> '') do
  begin
    pers := processAccount(perslist[i]);
    for j := 0 to 11 do
    begin
      Stringgrid1.cells[j+1,i+1]:=pers[j];
    end;
    inc(i);
  end;
end;
end;
meine datei umfasst aber ca. 1200- 1300 zeilen, also fehlen mir welche. gibt es einen weg vielleicht vorher schon ein reserve grid zu erstellen wo die restlichen zeilen (im falle das das erste voll ist) reingeladen werden?

Per Suchfunktion hab ich explezit mit diesem thema nix gefunden..

Bitte kann mir jemand (vielleicht anhand meines codes) sagen wie ich das bewerkstelligen kann?

gruß

rhodan
  Mit Zitat antworten Zitat