-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
7. Aug 2008
"beg" kann nicht 0 sein, daß wird doch schon in der WHILE-Bedingung abgefangen.
Das mit dem PosEx werde ich noch ändern, Danke für den Hinweis.
Gruß
Micha
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
7. Aug 2008
Hallo,
ich hab nichts weiter mehr geändert, nur die Reihenfolge der Blöcke vertauscht, die überflüssige IF-Anweisung raus und noch ein try/finaly dazu.
function DeleteCommentsNeu(const SQLLines:TStringList):Boolean;
var beg,en,i,Laenge : integer;
var Temp,begStr,enStr:String;
begin
Laenge:=Length(SQLLines.Text);
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
7. Aug 2008
So, ich habe mir alles mal angeschaut und mich entschlossen bei meiner Logik zu bleiben, aber Eure Einwände mit einzubeziehen.
@nahpets: Deine Prozedur hat leider scheinbar auch einige Fehler, jedenfalls liefert Sie nicht immer ein korrektes Ergebis.
z.B. bei
Select * /* Daten
-- ,daten1
-- ,daten2
-- ,daten3 */ from
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
7. Aug 2008
Vielen Dank für Eure viele Antworten und Anregungen, ich werde mir alles im Laufe des Tages mal anschauen und meine Fkt. evtl. entsprechend ändern.
Gruß
Micha
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
6. Aug 2008
Hallo spaxxn,
na und?
Gruß
Micha
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
6. Aug 2008
Hallo p80286,
1. Ich denke durch die Bedingung
(pos('*/',Temp)>pos('/*',Temp))
in der WHILE-Schleife, sollte die IF-Anweisung
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
6. Aug 2008
So, fertig:
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
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
6. Aug 2008
So sieht's tatsächlich aus. Danke, ich werd's gleich noch ändern.
Gruß
Micha
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
6. Aug 2008
Ich hab jetzt mal alles so geändert, wie ich es verstanden hab und bitte hiermit um erneute Überprüfung (ganz im Sinne des Bottom-Up Designs)
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
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
6. Aug 2008
@DeddyH: Ich hatte Phoenix' Antwort noch nicht gelesen, als ich Dir geantwortet habe, sorry.
@Phoenix: Kannst Du mir dafür mal ein Beispiel geben? Ich glaub ich verstehs gerade nicht so richtig ... habe um die Uhrzeit glaube immer meinen Tiefpunkt :-)
Gruß
Micha
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
6. Aug 2008
Ja, das hab ich geändert. Das Problem ist aber, daß der Fehler bei mir selbst sowieso noch nie aufgetreten ist; also nicht vor und auch nicht nach der jetzigen Änderung. Der Fehler tritt nur sporadisch (1-5 mal pro Monat) bei dem Benutzer der Software auf und so ist das schwierig herauszufinden, ob es was gebracht hat.
Du meinst aber also schon, daß es daran gelegen haben könnte?
Gruß...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
6. Aug 2008
Alles klar und vielen Dank.
Aber woher könnte denn nun die Fehlermeldung kommen?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
6. Aug 2008
Ok, schon geändert.
Macht es eigentlich einen Unterschied ob man:
procedure DeleteComments(TempList:TStringList);
oder
procedure DeleteComments(var TempList:TStringList);
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DerAndereMicha,
6. Aug 2008
Hallo Zusammen,
in einer Funktion von mir, die dazu dient aus einer SQL-Anweisung (als Stringliste) alle Kommentare zu entfernen, tritt sporadisch der Fehler "Zu wenig Arbeitsspeicher" auf. Leider kann ich nicht nachvollziehen, wo und warum das geschieht. Evtl. hat einer von Euch ja mehr Überblick und sieht auf den 1.Blick, unter welchen Umständen das passieren könnte bzw. ob ich ansich einen...