Hallo habe ein problem habe ein kleine Programm geschrieben um alle möglichen
IP- Adressen aufschreiben zu lassen funktioniert soweit auch ganz gut, nur setzte ich den Befehl ans nach dem Ende der Schleife ist mein Arbeitspeicher zu klein um die Stringlist bisa zum Ende zu füllen. Also hab ich den Befehl in die Schleife gesetzt, doch kann ich jetzt nichts mehr sinnvolles in die Textdatei schreiben lassen, da ein Ordinaltyp verlangt wird, ich aber nicht weiß wie ich diesen definieren soll.Danke im Voraus!
Delphi-Quellcode:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var a,b,c,d,w,x,y,z,g,h,i,j:integer; sl: TStringList; f : TextFile; StringList:???? ;
begin
w:=0;x:=0;y:=0;z:=0;
Listbox1.clear; sl:=TStringList.Create;
for g:=0
to 2
do begin
a:=w+1;
w:=a; Listbox1.clear;
for h:=0
to 5
do begin
b:=x+1;
x:=b;
if b=6
then x:=0;
for i:=0
to 5
do begin
c:=y+1;
y:=c;
if c=6
then y:=0;
for j:=0
to 5
do begin
d:=z+1;
z:=d;
if d=6
then z:=0;
sl.add(IntToStr(a-1)+'
.'+IntToStr(b-1)+'
.'+IntToStr(c-1)+'
.'+IntToStr(d-1));
AssignFile(f, '
ip.txt');
Append(f);
Writeln(f, (Stringlist));
//<--Hier ist der Fehler
Flush(f);
CloseFile(f);
refresh;
end;
end;
end;
end;
end;