Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Fehler bei Aufruf einer Funktion


Tjeri - Fr 12.06.09 22:57
Titel: Fehler bei Aufruf einer Funktion
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:


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:

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


Moderiert von user profile iconNarses: Code- durch Delphi-Tags ersetzt


Xentar - 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.


Tjeri - Fr 12.06.09 23:01

ach wie bescheuert :oops:


Xentar - 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 ;)


Tjeri - Fr 12.06.09 23:20

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 - Fr 12.06.09 23:24

user profile iconTjeri hat folgendes geschrieben Zum zitierten Posting springen:
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.

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


Tjeri - Fr 12.06.09 23:40

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


Tjeri - Fr 12.06.09 23:45

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 - Fr 12.06.09 23:46

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