Fehlermeldung "Zu wenig Arbeitsspeicher"

[DeddyH]

Kleiner Vorschlag:

Delphi-Quellcode:

for i:= SQLLines.Count-1 downto 0 do
    Begin
      beg:=pos('--',Trim(SQLLines[i]));

Und

Zitat:

Delphi-Quellcode:

if beg  <> 0 then
      Begin
        if beg=1 then SQLLines.Delete(i)
        else SQLLines[i]:=Copy(SQLLines[i],1,beg-1);
      end;

könnte man auch durch case ersetzen, ist aber nicht unbedingt nötig. Ansonsten teste ich das heute Abend mal zu Hause