Einzelnen Beitrag anzeigen

M4ST3R86

Registriert seit: 1. Mai 2004
23 Beiträge
 
#4

Re: BigProblem bei XXO(TicTACToe)Zufallssetzung *Bitte helfe

  Alt 31. Mai 2004, 19:38
mmh ich habe trotzdem wenn ich es starte und dann es spielen will derbe fehler im Projekt1 kommt er nicht weiter!

Bei aplication run steht nach dem Fehlerfenster wenn ich das programm starten will so nen Pfeil? Wieso?

Code:
program Project1;

uses
  Forms,
  SysUtils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  try
    Application.Initialize;

    Form2 := TForm2.Create( nil );
    Form2.Show;
    Form2.Repaint;

    Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
  finally
    if ( Form2 <> nil ) then
      FreeAndNil( Form2 )
  end
end.
  Mit Zitat antworten Zitat