Thema: Delphi Galgenmännchen

Einzelnen Beitrag anzeigen

tigerman33

Registriert seit: 30. Jul 2005
Ort: München
423 Beiträge
 
Delphi 2005 Professional
 
#25

Re: Galgenmännchen

  Alt 1. Dez 2005, 20:08
Exakt

Jetzt machen wir etwas, was sozusagen zum guten Stil gehört.
Und zwar muss deine Woerterliste am Ende ja auch wieder freigegeben werden. Du brauchst sie ja nicht mehr, und sie frisst nur noch Speicher. (Das ist nicht das was ich meinte, das Freigeben gehört zum Pflichprogramm!).
Um sicherzustellen, dass dies auf jeden Fall geschieht, auch wenn zwischendrin ein Fehler auftreten sollte (z.B. Datei nicht gefunden o.ä.), kapselt man das in einen try..finally..end Block:

Delphi-Quellcode:
begin
  Woerterliste := TStringList.Create;
  try
    Woerterliste.LoadFromFile('Woerter.txt');
    Wort := Woerterliste[Random(Woerterliste.Count - 1)];
  finally
    Woerterliste.Free;
  end;
end;
Was hast du jetzt als nächstes vor?
Christian
Der Computer hilft mir, Probleme zu lösen, die ich ohne Computer nicht hätte.
  Mit Zitat antworten Zitat