Ne so ein Ranz! Haben die die Speichergrenze erstmal auf 15Mb oder so gesetzt! Was soll ich jetzt machen ich habe 1,06 GB(!) auf meinem Homepfad! Ich glaube ich muss den Ben mal fragen was los ist, denn das nervt mich grad mal das nix klappt (also Speicherntechnisch)…
Was ich heute in Info gemacht habe, außer Emails und sonstiges öhm… Achja ich habe meinem Kurs einen Vortrage über Insertsort gehalten. Hier der Quellcode für das Insersort-Verfahren:
procedure TForm1.Button1Click(Sender: TObject); var i,j,v : Integer; var Feld: Array[1..100] of integer; Begin Listbox1.Items.Clear; ListBox2.Items.Clear; randomize(); for i := 1 to 100 do begin Feld[i] := random(100); ListBox1.Items.Add(inttostr(Feld[i])) end; for i:= 2 to 100 do begin v:= Feld[i]; j:= i; while (j > 1) and (Feld[j-1] > v) Do begin Feld[j]:= Feld[j-1]; dec(j); end; Feld[j]:= v; end; for I := 1 to 100 do ListBox2.Items.Add(IntToStr(Feld[i])); end;
Mehr habe ich eigentlich nicht gemacht 
Sharing ist was tolles...
