Fehlermeldung(gelöst)

[McCry]

Hallo,
ich habe jetzt seit einigen Tagen an einem kleinen Rechner gearbeitet der lediglich + und - rechnen soll.
Dabei ergab ein ziemlich frustrierendes Problem.
hier meinn code:

Code: Alles auswählen

TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    RadioButtonSub: TRadioButton;
    RadioButtonAdd: TRadioButton;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if RadioButtonAdd.Checked then
                             begin
                               [color=#FF0000]Label1:= Edit1+Edit2;[/color]
                             end
                            else if RadioButtonSub.Checked then
                                                            begin
                                                             [color=#FF0000] Label1:=Edit1-Edit2;[/color]
                                                            end
                                                           else
                                                            begin
                                                              [color=#FF0000]Label1:='Rechnung auswählen';[/color]
                                                            end;
end;
 
end.

jedes mal werden folgende Fehler gemeldet(in rot markiert):
(z.30) unit1.pas(43,46) Error: Operator is not overloaded
(z.34) unit1.pas(47,76) Error: Operator is not overloaded
(z.38) unit1.pas(51,71) Error: Incompatible types: got "Constant String" expected "TLabel"



Danke schonmal im vorraus
MFG McCry

[Socke]

Lass mich raten, du hast schon mal mit VBA gearbeitet?

Komponenten (Edit-Felder, Labels, usw.) sind in Pascal ganz normale Variablen, das heißt du kannst ihnen auch nur andere Edit-Felder bzw. Labels zuweisen (wobei du dann natürlich aufpassen musst, dass du sie noch irgendwie freigeben kannst).

Wenn du die Beschriftung einer Komponente ändern willst, verwendest du die "Caption"-Eigenschaft:

Code: Alles auswählen

Label1.Caption := 'Jetzt wird das hier angezeigt';

An den Text-Inhalt kommst du über die "Text"-Eigenschaft dran; bevor du damit rechnen kannst, musst du das aber erst in eine Zahl konvertieren; VBA konvertiert automatisch zwischen Zahlen und Zeichenketten, aber prinzipiell kann es auch nicht direkt mit Zeichenketten rechnen. Umgekehrt musst du natürlich auch eine Zahl erst wieder in eine Zeichenkette umwandeln.

Code: Alles auswählen

Label1.Caption := IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));

[carli]

Kleiner Tipp am Rande: Code kann man mit

Code: Alles auswählen

 markieren. Direkt wenn man auf "Highligher" klickt.

[Eclipticon]

Noch zwei Sachen zu deinem Code:

• In einer RadioGroup brauchst Du nicht zusaetzlich Radiobuttons anlegen, das geht auch automatisch, wenn Items (?) gefuellt wird.
• Wenn diese RadioGroup richtig initialisert ist, kann man den Fall, dass keiner der Items selektiert ist, vermeiden.

HTH

[Heinrich Wolf]

Hallo,

Wie Eclipticon geschrieben hat:
Lösche RadioButtonSub und RadioButtonAdd aus Deinem Form.
Clicke auf Items in RadioGroup1 und trage zwei Zeilen ein:
&Add
&Sub
Clicke auf ItemIndex in RadioGroup1 und ändere -1 in 0 oder 1, je nachdem ob Add oder Sub voreingestellt sein sollen.
Das & sieht man im laufenden Programm nicht.
Stattdessen ist der folgende Buchstabe unterstrichen und Du kannst z.B. Add per Tastatur durch Alt-A auswählen.

Gruß
Heiner

[McCry]

Danke an alle,
aber das was ihr meintet (Items)
hat bei mir nicht funktioniert.Weiß auch nicht warum.
Ich hab das jetzt erstmal mit Beispiel von Socke ausprobiert.
Es hat alles funktioniert, bis ich den vierten Punkt(Division) eingebaut habe:

Code: Alles auswählen

Label2.Caption := IntToStr(StrToInt(Edit1.Text)/StrToInt(Edit2.Text));

Diese Zeile wurde als Fehler markiert obwohl ich alle drei anderen Zeilen genauso eingebaut habe,
nur mit +,- und *.

Ich hoffe ihr habt da eine Lösung für mein Problem,
McCry

[Eclipticon]

McCry, aus der Division zweier Integer (Ganzzahlen) kommt keine Ganzzahl, sondern eine Fliesskommazahl raus ... daher funktioniert IntToStr natuerlich nicht. Schau mal, ob Du mit Format() oder FloatToStr() weiterkommst ...

Und was genau hast du bei Items gemacht?

[Linkat]

Hallo NoCry,
erstmal herzlich willkommen im Lazarusforum.
Nun zu deinem Problem: Du möchtest integer-Zahlen mit '/' dividieren. Dies geht natürlich nicht. Entweder du nutzt die Ganzzahldivision (div) mit Rest (mod), oder du musst gleich mit Gleitkommazahlen (Float) rechnen.
In Pascal wird sehr streng auf die typ-Reinheit geachtet. Was zwar zunächst ein bischen Aufwand zu sein scheint, aber nach einer gewissen Gewöhnung deutlich strukturierter ist.

Gruß, Linkat

[McCry]

Danke Linkat,
der Rechner funktioniert jetzt wunderbar.
Wenn ihr wissen wollt, wie er aussieht, könnt ihr ihn auf meiner Homepage
http://themrmccry.jimdo.com herunterladen.
(Gallerie Downloads Lazarus)


Und übrigends:Ich heiße McCry und nicht Nocry

[Linkat]

Hallo McCry,
sorry, dass ich deinen Namen falsch gelesen habe.
Dein Programm habe ich zwar heruntergeladen, konnte es aber, weil ohne Windows, nicht laufen lassen. Vielleicht schreibst du noch dazu für welches Betriebsystem dein Programm ist. Kann dir deshalb leider keinen Komnentar zu deinem Programm geben.

Deine Webseite ist ganz iinteressant aufgebaut. Leider ist es sehr schwieig, die schwarze Schrift auf dem fast schwarzem Hnitergrund zu lesen.

Weiterhin viel Spaß beim Programmieren.

Gruß, Linkat

[McCry]

Danke für deine Tipp mit dem Betriebsystem.
Werde ihn auch gleich umsetzen.
Auch die Schriftfarbe auf meiner Homepage ändere ich sofort.

Es würde mich freuen wenn du die HP weiterempfehlen würdest.

LG McCry

[Heinrich Wolf]

Hallo McCry,

Ich hab mir Deine HP mal angesehen und dort ein nimm.exe gefunden. Das kann man noch interessanter mit mehreren Häufchen Streichhölzern machen. Siehe hier: http://www.Wolf-Fuerth.de/nim.zip . Da ist ein DOS nim.exe, ein Linux nim und der Quellcode nim.c drin.

Gruß
Heiner

[McCry]

Hi Heiner,
ist eine interessante Version des Spiels.
NUr ein bisschen kompliziert mit den ganzen Häufchen und so vielen Streichhölzern.
Zwei Fragen: Wie lange hast du and diesem Spiel gearbeitet?
Und:Hast du es mit Pascal geschrieben?

LG
McCry

[Heinrich Wolf]

Hi, McCry,

ich weiß nicht mehr, wie lange ich an dem Spiel geschrieben habe. Ich hab's aber mehrfach angefasst. Als ich vor 1980 noch zur Schule ging, hat unser Lehrer uns die Sieger-Strategie beigebracht, nach welcher der Computer spielt. Damals hab ich es wahrscheinlich in BASIC programmiert, weil die Computer nichts anderes kannten. Den BASIC Quellcode hab ich nicht mehr. Irgendwann hab ich es neu programmiert in C. Das ist auch die Sprache, in der die Version erstellt ist, die ich Dir angeboten habe. Vor nicht langer Zeit hab ich die Bildschirmsteuerung von nim.c umgestellt auf die curses Bibliothek, sofern es unter Unix compiliert wird. Irgendwann hab ich es auch nochmal in Pascal programmiert. Soeben hab ich das zip Archiv unter der Adresse oben ausgetauscht. Jetzt ist auch nim.pas im Archiv.

Das Spiel von mir kann man auch so einstellen, dass es nicht kompliziert ist. Zum Starten werden allerhand Eingaben abgefragt. Da kann man angeben, dass man mit nur zwei oder wenigen Häufchen spielt. Die Sieger-Strategie ist simpel bei 2 Häufchen. Ab 3 Häufchen wird sie interessant.

LG
Heiner