Fehlermeldung "Zu wenig Arbeitsspeicher"

[OldGrumpy]

Dazu fällt mir noch was ein, ich schreib mal Kommentare in den Code...

Zitat von nahpets:

Delphi-Quellcode:

 //Mehrzeile Kommentare
   Temp := SQLLines.Text;
   beg  := pos('/*',Temp);
   //wenn beg=0 kann man sich den Rest sparen
   en   := pos('*/',Temp) + 2;
   //mittels PosEx kann man hier auch zeit sparen (en muss hinter beg liegen, also erst ab Position en suchen
   while (beg <> 0) and (en > beg) do
   begin
      begStr := copy(Temp,1,beg - 1);
      enStr  := copy(Temp,en,Length(Temp));
      Temp   := begStr + enStr;
      //beg kann jetzt nicht mehr kleiner sein als begStr, 
      //daher hier mit PosEx weitersuchen!
      beg    := pos('/*',Temp);
      en     := pos('*/',Temp) + 2;
   end;
   SQLLines.Text := Temp;