Noch einfacher wäre wohl:
Delphi-Quellcode:
var
c: Cardinal;
tf: TextFile;
begin
AssignFile(tf, ExtractFilePath(ParamStr(0)) + '
ip.txt');
Rewrite(tf);
for c := 0
to $FFFFFFFF
do
begin
WriteLn(tf, IntToStr(c
shr 24),
'
.', IntToStr(c
shr 16
and $FF),
'
.', IntToStr(c
shr 8
and $FF),
'
.', IntToStr(c
and $FF)
);
// Application.ProcessMessages; // falls du noch was anderesvorhast
end;
CloseFile(tf);
end;
Bring viel Zeit mit - es wird ein Weilchen dauern...
Grüße vom marabu