[Delphi] tischteniss hab irgendwo was falsch

W-Playaz · 17. April 2007

tischteniss hab irgendwo was falsch

hat sich erledigt

Anzeige

-idur- · 17. April 2007

AW: tischteniss hab irgendwo was falsch

was kommt fürn fehler?

W-Playaz · 17. April 2007

AW: tischteniss hab irgendwo was falsch

es kommen diese fehler ich bin zur zeit irgendwie übervordert, ich weiß nicht was ich da gemacht habe...

[Fehler] Unit1.pas(34): ',' oder ':' erwartet, aber Bezeichner 'nces2' gefunden
[Fehler] Unit1.pas(47): Undefinierter Bezeichner: 'TrefferchanceS2'
[Fehler] Unit1.pas(65): Ungültiges Zeichen in Eingabedatei: '"' ($22)
[Fehler] Unit1.pas(65): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(66): ';' nicht erlaubt vor einem 'ELSE'
[Fehler] Unit1.pas(66): Ungültiges Zeichen in Eingabedatei: '"' ($22)
[Fehler] Unit1.pas(66): Inkompatible Typen: 'String' und 'Integer'
[Fehler] Unit1.pas(67): Inkompatible Typen: 'String' und 'Integer'
[Fehler] Unit1.pas(68): Inkompatible Typen: 'String' und 'Integer'
[Fehler] Unit1.pas(69): Inkompatible Typen: 'String' und 'Integer'
[Fehler] Unit1.pas(70): Undefinierter Bezeichner: 'label5'
[Fehler] Unit1.pas(70): Inkompatible Typen: 'String' und 'Integer'
[Fehler] Unit1.pas(71): Undefinierter Bezeichner: 'label6'
[Fehler] Unit1.pas(71): Inkompatible Typen: 'String' und 'Integer'
[Fehler] Unit1.pas(72): Undefinierter Bezeichner: 'label7'
[Fehler] Unit1.pas(72): Inkompatible Typen: 'String' und 'Integer'
[Fehler] Unit1.pas(76): Undefinierter Bezeichner: 'Button2Click'
[Fehler] Unit1.pas(76): ';' erwartet, aber '(' gefunden
[Fehler] Unit1.pas(78): '(' erwartet, aber ';' gefunden
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

-idur- · 17. April 2007

AW: tischteniss hab irgendwo was falsch

procedure TForm1.Button1Click(Sender: TObject);

var
Runde1S1,Runde1S2,Runde2S1,Runde2S2,Runde3s1,Runde3s2,TrefferchanceS1,
Trefferchances2,GPs1,GPs2:integer;
// bei der variable "Trefferchances2" war ein leerzeichen drin
begin
randomize;
GPs1:=0;
GPs2:=0;
Runde1s1:=0;
Runde1s2:=0;
Runde2s1:=0;
Runde2s2:=0;
Runde3s1:=0;
Runde3s2:=0;
repeat
TrefferchanceS1:=random(1-5);
TrefferchanceS2:=random(1-5);
if TrefferchanceS1>=TrefferchanceS2
then Runde1s1:=runde1s1+1
else runde1s2:=runde1s2+1;
TrefferchanceS1:=random(1-5);
TrefferchanceS2:=random(1-5);
if TrefferchanceS1>=TrefferchanceS2
then Runde2s1:=runde2s1+1
else runde2s2:=runde2s2+1;
TrefferchanceS1:=random(1-5);
TrefferchanceS2:=random(1-5);
if TrefferchanceS1>=TrefferchanceS2
then Runde3s1:=runde3s1+1
else runde3s2:=runde3s2+1;
GPs1:=runde1s1+runde2s1+runde3s1;
GPs2:=runde1s2+runde2s2+runde3s2;
until (GPs1=36) or (GPs2=36);
if GPs1>GPs2
then label1.caption:='SPIELER EINS SIEGT!!!' //hier war ein semikolon zu viel; außerdem werden keine " benutzt sondern '
else label1.caption:='SPIELER 2 SIEGT!!!!!';
label2.caption:=IntToStr(Runde1s1); // inttostr vergessen
label3.caption:=IntToStr(Runde1s2);
label4.caption:=IntToStr(Runde2s1);
label5.caption:=IntToStr(Runde2s2);
label6.caption:=IntToStr(Runde3s1);
label7.caption:=IntToStr(Runde3s2);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mehr seh ich grad nich

W-Playaz · 17. April 2007

AW: tischteniss hab irgendwo was falsch

dank dir alle fehler sind verschwunden aber jetzt kommt:

-idur- · 17. April 2007

AW: tischteniss hab irgendwo was falsch

das ist eigentlich egal...

der macht dich halt nur darauf aufmerksam, dass du die 2 variablen nich verwendest

W-Playaz · 17. April 2007

AW: tischteniss hab irgendwo was falsch

jetzt kommt was anderes wenni ch play drücke:

der debugger-kernel bordbk50.dll fehlt oder ist nicht registriert.
das ,üsste wegen ner fehl installatin kommen oder?

-idur- · 17. April 2007

AW: tischteniss hab irgendwo was falsch

öhm... hab keine ahnung an was das liegt :/

kannsts ja mal mit einer neuinstallation versuchen. vielleicht gehts dann wieder...

Kolazomai · 17. April 2007

AW: tischteniss hab irgendwo was falsch

[X] Erledigt ?!

~closed~

Mfg,

Kolazomai

Nützliche Suchen

[Delphi] tischteniss hab irgendwo was falsch

Videos zum Themenbereich