Helft nem anfaenger... fehlermeldung im procedure

luck.ritze · Hält's aus hier Beiträge: 6

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure fullspinkick;
begin
   randomize;
   x := int(random(2))+4;
   realdam1 := x;
   hitsken := strtoint(Label37.Caption);
   if hitsken - realdam1 >= 0 then
   hitsken := hitsken - realdam1;
   label37.caption := floattostr(hitsken);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     fullspinkick;
     fullspinkick;
     fullspinkick;
     fullspinkick;
     fullspinkick;
     fullspinkick;
     fullspinkick;
     fullspinkick;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
     fullspinkick;
end;

er sagt mir hierbei:

Zitat:

[Fehler] Unit1.pas(180): Undefinierter Bezeichner: 'Label37'

was mach ich falsch? Wenn ich die procedure fullspinkick ganz wegfallen lasse und die befehle stattdessen ganz einfach unter button6click ausfuehren lasse, dann klappt es, aber dann kann ich die procedure doch nicht durch einfache yeilen bei button1click ausfuehren lassen...! Hilfe!!!

Moderiert von Klabautermann: Quote in Delphi-Tags geändert.

smiegel · Verfasst: Sa 01.11.03 17:13

Hallo,

ich greife einmal den Mods vor: Der Titel den du deinem Beitrag gegeben hast wiederspricht den Richtlinien des Forums:

Zitat:

Delphi-Forum Richtlinien hat folgendes geschrieben:
1.1 Beiträge
Bitte formuliere den Betreff Deiner Beiträge so, dass andere Mitglieder anhand dieser bereits das eigentliche Thema festmachen können. Beiträge wie etwa "Eine Anfängerfrage" oder "Weiß jemand, wie das geht?" lassen den Leser im Unklaren darüber, was das Thema der Diskussion ist. Eine Pseudocodezeile oder die Nennung des Objektes, um welches es sich in dem Beitrag handelt, helfen da schon mehr weiter. Wenn Du beispielsweise wissen möchtest, wie es möglich ist, eine Integer-Variable in das String-Format zu konvertieren, würde ein Beitrag wie etwa "Integer zu String" oder "Integerkonvertierung" anderen Forenmitgliedern einen kurzen Überblick über die eigentliche Fragestellung verschaffen. So ist es möglich gezielter Lösungen für Probleme zu finden. Zudem solltest du immer daran denken: Der Fragesteller möchte etwas von den anderen Usern - nicht umgekehrt.

Ändere also bitte das Topic. Hierzu musst du nur deinen ersten Beitrag Editieren, den Titel ändern und das ganze wieder abschicken.

Zu Deinem Problem:
Der Fehler besagt, dass das Label37 nicht vorhanden ist. Entweder hast Du es gelöscht oder umbenannt.

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

Klabautermann · Verfasst: Sa 01.11.03 17:19

Hallo und

im Delphi Forum.

Danke smiegel das du mir Arbeit abnimmst

.

@luck.ritze: Halte dich bitte an das was Smiegel zum Thema Titel gesagt hat.
Desweiteren soltest du deinen Qelltext in Delphi, nicht in Quote Tags stellen. Also

markieren

Quelltext

1:	[delphi]Dein Quelltext[/delphi]

und nicht

markieren

Quelltext

1:	[quote]Dein Quelltext[/quote]

das wird ann übdersichtlicher, ich habe das mal in denem Beitrag geändert, damit du siehgst was ich meine.

Aber das mit dem Titel machst du bitte selber

.

Gruß
Klabautermann

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

und dami die frage beantowrtet wird:
du musst in einer funktion die nicht zu einem Formula gehört den form namen hinschreiben(klassen namen)
beispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure fullspinkick; 
begin 
   randomize; 
   x := int(random(2))+4; 
   realdam1 := x; 
   hitsken := strtoint(Label37.Caption); 
   if hitsken - realdam1 >= 0 then 
   hitsken := hitsken - realdam1; 
   Form1.label37.caption := floattostr(hitsken); 
end;

jetzt sollte es funktionieren.

ps: die frage gehört eingentlich untert Sontiges oder ?
aber egal....

_________________
MFG
Michael Springwald, "kann kein englisch...."

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Pack
procedure fullspinkick;
in den Private-Teil der Formularklasse und änder die Zeilen

markieren

Delphi-Quelltext

1:
2:

procedure fullspinkick;
begin

in

markieren

Delphi-Quelltext

1:
2:

procedure TForm1.fullspinkick;
begin

Oder wie auch immer deine Formularklasse heißt.

//Edit:
mimi: Das ist kein guter Stil, die Procedure wird ja nur von einem Button der Formularklasse aufgerufen. Also sollte sie auch zu der Klasse gehören.

luck.ritze · Hält's aus hier Beiträge: 6

Ersteinmal sorry an alle Boardnutzer und Moderatoren!!!
Zu meiner Verteidigung: Ich bin Schueler und es liegt in meiner Natur Aufgaben auf die letzte Sekunde zu erledigen. Das Programm soll bis Montag lauffaehig sein und da hab ich es in meiner Eile und meiner Not etwas mit dem Topic ueberstuerzt.

thx @ Klabautermann: danke fuers "welcome" und danke fuer den tipp mit dem [delphi] statt [quote], hab mich schon gewundert wie die andren das immer so gut hinbekommen.

besonders thx @ Alibi: Dank dir hab ich das Problem loesen koennen. danke auch an alle andren dies versucht haben ^^

@Mimi: Ich hab das hier reingeschrieben, weil das mal n Game werden soll o_O

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

@Alibi
ich habe einfach den stil von Luck übernohmen....

@Luck
sowas gehört aber eingentlich ins sonstige forum......
oder ????
weil das ja noch nichts mit einem spiel zu tuen hat

_________________
MFG
Michael Springwald, "kann kein englisch...."

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme