Fehler bei Aufruf einer Funktion

Tjeri · Beiträge: 46

Hallo, ich hab hier mal eine kleine Funktion gebastelt die auch funktioniert, nur hab ich da eine Fehlermeldung:

Quelltext

1:	[Error] Unit1.pas(86): Missing operator or semicolon

und zwar sieht das ganze so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function TFarbspiele.Farbe(farbe:integer):integer;
begin
  Case farbe of
     0: result:=0;
     1: result:=8421504;
     2: result:=10485760;
     3: result:=16711680;
     4: result:=16744448;
     5: result:=25600;
     6: result:=46080;
     7: result:=65280;
     8: result:=128;
     9: result:=255;
    10: result:=8421631;
    11: result:=65535;
    12: result:=33023;
    end;
end;

Und hier kommt die Fehlermeldung:

markieren

Delphi-Quelltext

1:
2:
3:

  if Farbauswahl.ItemIndex>-1
    then farbe:=Farbe(Farbauswahl.ItemIndex)
    else farbe:=0;

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Xentar · Verfasst: Fr 12.06.09 23:00

Naja, du hast eine Funktion Farbe, aber anscheinend auch eine Variable "farbe", der du versucht, das Ergebnis der funktion zuzuweisen.
Nenn eins von beiden um, und gut ist.

_________________
PROGRAMMER: A device for converting coffee into software.

Tjeri · Beiträge: 46

ach wie bescheuert :oops:

Xentar · Verfasst: Fr 12.06.09 23:09

Übrigens, für Farben solltest du wenn möglich die Farbcodes, also z.B. clBlack, oder wenigstens die RGB Darstellung wählen, also RGB(1,2,3); .
Macht die ganze Sache wesentlich übersichtlicher, als 12345678

_________________
PROGRAMMER: A device for converting coffee into software.

Tjeri · Beiträge: 46

ja vll aber rgb codes kann man da ja so nicht eingeben deswegen hab ich die genommen^^
man sieht es aber wenn man die Form hat oder ich schreib kommis dahinter^^

Xentar · Verfasst: Fr 12.06.09 23:24

Tjeri hat folgendes geschrieben :

ja vll aber rgb codes kann man da ja so nicht eingeben deswegen hab ich die genommen^^

Äh, doch, dafür hab ich ja die RGB Funktion erwähnt.

markieren

Delphi-Quelltext

1:	Farbe := RGB(255,0,0); // Rot

_________________
PROGRAMMER: A device for converting coffee into software.

Tjeri · Beiträge: 46

dummerweise weiß ich die rgb codes nicht mehr alle so genau aber ich gucks mir an

Tjeri · Beiträge: 46

noch ein kleines problem, meine eine radiogroup lässt sich nicht mehr blicken, wenn ich sie im code auf visible=true stell bleibt sie unsichtbar und die items fügt er auch nicht hinzu die ich ihm sag die er machen soll

Xentar · Verfasst: Fr 12.06.09 23:46

Hat nix mehr mit "Fehler bei Aufruf einer Funktion" zu tun, also mach bitte ein neues Thema auf.

_________________
PROGRAMMER: A device for converting coffee into software.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme