Einzelnen Beitrag anzeigen

Thorben77

Registriert seit: 22. Okt 2004
359 Beiträge
 
#8

Re: Ein kleines HangMan

  Alt 11. Okt 2005, 12:22
Zitat von glkgereon:
das erste konnte ich nicht feststellen
Nicht? Hm, also wenn ich ein Wort erraten habe, kommt "You won", das Wort verschwindet aus dem Edit, aber der Galgen nicht.

Zitat von glkgereon:
hmm, in dem Fall reicht Close wohl nicht...
aber ein Application.Terminate ist vielleicht nicht so elegant, aber es funktionier
Das könntest du schon in der Projektdatei machen, bevor das Fenster überhaupt erstellt wir, dann brauchst du auch kein Terminate:
Delphi-Quellcode:
program HangMan;

uses
  Forms,
  SysUtils,
  YourUnit in 'YourUnit.pas{YourForm};

begin
  if FileExists(ExtractFilePath(ParamStr(0)) + 'Draw.txt') then
  begin
    Application.Initialize;
    Application.CreateForm(TYourForm, YourForm);
    Application.Run;
  end
  else
    // Die Fehlermeldung...
end.
Mir ist noch aufgefallen, dass nach den Start unten keine Unterstriche in dem Edit sind

MfG
  Mit Zitat antworten Zitat