Einzelnen Beitrag anzeigen

nahpets
(Gast)

n/a Beiträge
 
#35

Re: Fehlermeldung "Zu wenig Arbeitsspeicher"

  Alt 7. Aug 2008, 12:20
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
  Mit Zitat antworten Zitat