Hi Leute,
ich hab mir in Delphi einen ICQ History Viewer programmiert. Über readln lese ich dabei zeile für zeile in einen dynamischen String-array ein. Nur leider kommt(erst während der Laufzeit) bei größeren Dateien der Fehler "Arbeitsspeicher zu klein". An sich kann er nicht zu klein sein(1 GB), aber ich vermute, dass Delphi sich nur einen bestimmten Bereich des Arbeitsspeichers reserviert. Kann man den irgendwie vergrößern. Oder, wenn meine Vermutung falsch ist, gibt es eine andere Möglichkeit ???
Hier mal der Code(ist nix besonderes):
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| var Lines: array of string;
function getLines: boolean;
var fdatei: textfile;
begin
form1.opendialog1.execute;
assignfile(fdatei,form1.OpenDialog1.FileName);
reset(fdatei);
repeat
setlength(lines,length(lines)+1);
readln(fdatei,lines[high(lines)]);
until eof(fdatei);
closefile(fdatei);
end; |
Luckie