Für diesen Befehl ist nicht genügend Speicher vorhanden.

[WM_CLOSE]

GetLastError muss nicht immer heißen, dass der Fehler innerhalb deiner procedure aufgetreten ist.
Er kann auch von woanders kommen. versuche z.b. vor dem Aufruf des Buttons ein SetLastError unterzubringen.
Wenn die Meldung immer noch auftritt deutet das darauf hin, dass es ein VCL-Fehler ist, oder dass es innerhalb er VCL ausgewertet wird. Jedenfalls brauchst du dich DANN nicht mehr darum kümmern. Die Anwendung funktioniert deswegen trotzdem.

[sventeq]

Zitat von WM_CLOSE:

GetLastError muss nicht immer heißen, dass der Fehler innerhalb deiner procedure aufgetreten ist.
Er kann auch von woanders kommen. versuche z.b. vor dem Aufruf des Buttons ein SetLastError unterzubringen.
Wenn die Meldung immer noch auftritt deutet das darauf hin, dass es ein VCL-Fehler ist, oder dass es innerhalb er VCL ausgewertet wird. Jedenfalls brauchst du dich DANN nicht mehr darum kümmern. Die Anwendung funktioniert deswegen trotzdem.

Ok, versuche ich jetzt mal. Aber wie bekomme ich die Fehlermeldung weg? Obwohl alles funktioniert, wäre es ja schon störend, wenn die Meldung ständig kommen würde.

[DeddyH]

Verstehe ich nicht. Du gibst eine Message aus und willst die dann weghaben? BTW:

Zitat:

Delphi-Quellcode:

silbenDLG:=TsilbenDLG.Create(self);
          if silbenDLG.showModal=mrOk then
          begin
            silbenDLG.free;
          end;

Du gibst den Dialog nur frei, wenn er mrOK zurückgibt, erzeugst ihn aber immer neu?

[shmia]

Das ist ja mal ein tolles Beispiel, wie man nicht programmieren sollte.
Die Methode ist riesig und hat jede Menge Wiederholungen.
Ausserdem steckt noch auskommentierter Code als Störfeuer drin.

Ok, genug gelästert, hier der Weg zur Besserung.
Ich würde hier ein Bottom-Up-Design vorschlagen; also unten mit den kleinen Dingen beginnen und verbessern.

Ich greife mal diese Zeile raus, die vier Mal vorkommt:

Delphi-Quellcode:

if (szeichen='.') or (szeichen=',') or (szeichen='!') or (szeichen='?') or (szeichen=':') or (szeichen=';')then
begin

Daraus lässt sich eine Funktion erstellen:

Delphi-Quellcode:

function CharIstSatzzeichen(c:char):Boolean;
begin
  result := (c='.') or (c=',') or (c='!') or (c='?') or (c=':') or (c=';');
end;

Mit dem In-Operator lässt sich das noch etwas kompakter schreiben:

Delphi-Quellcode:

function CharIstSatzzeichen(c:AnsiChar):Boolean;
begin
  result := c in ['.',',','!','?',':',';'];
end;

Im nächsten Schritt wird diese Funktion dann verwendet.

Aber damit noch nicht genug. Wir betrachten folgenden Code:

Delphi-Quellcode:

prgrammdb.DikNeuSatzEintrag.Last;
prgrammdb.DikNeuSatzEintrag.Insert;
prgrammdb.DikNeuSatzEintragDiktatID.Value:=prgrammdb.dikNeuEintragID.Value;
prgrammdb.DikNeuSatzEintragWort.Value:=prgrammdb.silbenSilbe.Value;
prgrammdb.DikNeuSatzEintragSatzID.Value:=j;
prgrammdb.DikNeuSatzEintragWortID.Value:=seObjekt1.wortID;
prgrammdb.DikNeuSatzEintragSilbenID.Value:=x;
prgrammdb.DikNeuSatzEintrag.Post;

Dieser Code muss "verschwinden", d.h. er muss in eine Methode wandern:

Delphi-Quellcode:

// Datensatz an Diktionary anhängen
procedure TdiktatNeuDLG.AddDikRecord(DikatID,Word,SatzID,WordID,SilbenID: ???);

Den Datentyp für die Parameter habe ich weggelassen; die kennst du selbst am Besten.
Eigentlich ist der Code noch an der falschen Stelle.
Er gehört zum Datenmodul (oder Formular) Tprgrammdb.

[Daniela.S]

ja wenn wir beim Programmstyle schon sind sollte man noch einiges erwähnen...

Also ehrlich gesagt tu ich mir beim Lesen des Codes sehr schwer.
Bisserl umständlich? Und warum 2x hintereinander ein Leerzeichen löschen?

Delphi-Quellcode:

          Text1:=copy(Memo1.Text, 1, length(Memo1.Text));

          szeichen:=copy(Text1, length(Text1), length(Text1));
          if szeichen=' ' then delete(Text1, length(Text1), length(Text1));
          szeichen:=copy(Text1, length(Text1), length(Text1));
          if szeichen=' ' then delete(Text1, length(Text1), length(Text1));

warum nicht so?
  Text1 := Trim( Memo1.Text);