Fehlermeldung "Zu wenig Arbeitsspeicher"

[nahpets]

Hallo,

einen hätt' ich noch, Du ermittelst die Beginn- und Endepositionen mehrfach, das kann bei großen Datenmengen schon ein bisserl dauern:

Delphi-Quellcode:

 //Mehrzeile Kommentare
   Temp := SQLLines.Text;
   beg  := pos('/*',Temp);
   en   := pos('*/',Temp) + 2;
   while (beg <> 0) and (en > beg) do
   begin
      begStr := copy(Temp,1,beg - 1);
      enStr  := copy(Temp,en,Length(Temp));
      Temp   := begStr + enStr;
      beg    := pos('/*',Temp);
      en     := pos('*/',Temp) + 2;
   end;
   SQLLines.Text := Temp;

Das könnte eventuell schneller werden.

Stephan