Hallo Micha,
ich vermute das ist nicht so gewollt:
Zitat:
begin
beg:=pos('/*',Temp);
en:=pos('*/',Temp);
if en=0 then en:=Length(Temp);
Dies würde bedeuten, wenn '*/' ,aus welchen Gründen auch immer, fehlt dann wird gnadenlos bis zum Ende gelöscht!
und ob es hiermit keinen Ärger gibt weiß ich auch nicht:
Zitat:
enStr:= copy(Temp,en+2,Length(Temp));
Ich weiß nicht ob in Deinen Daten solche Konstrukte möglich sind:
Delphi-Quellcode:
Select Daten
/* ab hier jetzt auswählen
-- ,daten1
-- ,daten2
-- ,daten3
-- Bitte das Datumsformat beachten !! */
from .......
es gibt Clients, die so etwas verdauen können. In diesem Fall handelst Du Dir durch das löschen der Zeilenkommentare '--' eine Menge Ärger ein, weil dann nur noch "Select Daten" übrig bleibt.
Gruß
K-H