Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
1. Nov 2003
Hi Christian,
warst ein bissel schneller, hast es aber auf den Punkt gebracht.
In ein Memo1 passt noch weniger rein, da ist doch schon bei 2 GB Schluß. :zwinker:
@axelf98,
keine Geduld? (709 MB)
Die ~4 GB hätteste doch wenigstens durchlaufen lassen können.
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
1. Nov 2003
Const Z: Array of Char = ('0', '1', '2', '7', '8', '9',
'A', 'B', 'C', 'X', 'Y', 'Z');
Var s1, s2, s3, s4, s5, s6, s7, s8: Byte;
D: TextFile;
Begin
AssignFile(D, 'Datei.txt');
Rewrite(D);
For s1 := 0 to High(Z) do For s2 := 0 to High(Z) do