Registriert seit: 1. Jul 2004
Ort: Berlin
208 Beiträge
Delphi 2007 Enterprise
|
Re: Fehlermeldung "Zu wenig Arbeitsspeicher"
6. Aug 2008, 15:26
So, fertig:
Delphi-Quellcode:
function DeleteCommentsNeu(const SQLLines:TStringList):Boolean;
var beg,en,i,Laenge : integer;
var Temp,begStr,enStr:String;
begin
Laenge:=Length(SQLLines.Text);
for i:= SQLLines.Count-1 downto 0 do
Begin
beg:=pos('--',SQLLines[i]);
if beg <> 0 then
Begin
if beg=1 then SQLLines.Delete(i)
else SQLLines[i]:=Copy(SQLLines[i],1,beg-1);
end;
end;
Temp:=SQLLines.Text;
while (pos('/*',Temp) <> 0) and
(pos('*/',Temp)>pos('/*',Temp)) do
begin
beg:=pos('/*',Temp);
en:=pos('*/',Temp);
if en=0 then en:=Length(Temp);
begStr:=copy(Temp,1,beg-1);
enStr:= copy(Temp,en+2,Length(Temp));
Temp:=begStr+enStr;
end;
SQLLines.Text:=Temp;
Result:=Length(SQLLines.Text)<>Laenge;
end;
Gruß
Micha
Der Weg ist das Ziel...
|
|
Zitat
|