Verzweigung

[CR3ATiV3]

Hallo ich weiß leider nicht mehr weiter! Ich bin so schlecht in Quelltext erstellen, weil ich nicht weiß was ich da immer einsetzen soll ... :(
Ich habe ja da schon etwas versucht, aber mein Lazarus zeigt mir Fehler an! :( ...

Was will ich eigentlich machen, fragt ihr euch bestimmt?! ..
Ich möchte eine Verweigung einsetzen, wenn ich auf einen RadioButton klicke, dass dann im EditFeld richtig bzw. Falsch angezeigt wird!

Ja aber bei der Umsetzung harperts leider :(
ich hoffe ihr könnt mir helfen?

Code:

unit Unit3; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Buttons;

type

  { TForm3 }

  TForm3 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    LoesungEdit1: TEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Antwort1RadioButton1: TRadioButton;
    Antwort2RadioButton2: TRadioButton;
    Antwort3RadioButton3: TRadioButton;
    Antwort4RadioButton4: TRadioButton;
    procedure Antwort1RadioButton1Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form3: TForm3;

implementation

{$R *.lfm}

{ TForm3 }

procedure TForm3.Antwort1RadioButton1Change(Sender: TObject);
var Eingabe : String;
begin
  if Frage = Antowrt1
  begin
  then Ausgabe.LoesungEdit1:= 'Richtig!'
end;

end.

[divBy0]

Delphi-Quellcode:

procedure TForm3.Antwort1RadioButton1Change(Sender: TObject);
var Eingabe : String;
begin
  if Frage = Antowrt1 then
  begin
    LoesungEdit1.Text := 'Richtig!';
  end else
  begin
    LoesungEdit1.Text := 'Falsch!';
  end;
end;

So sollte die Verzweigung aussehen. Allerdings weiß ich nicht was Frage und was Antwort1 sein soll.

[CR3ATiV3]

Okay, danke! :) Dann probier ich das mal gleich aus ob ich das hinbekomme ...

Naja ich muss ein eigenes selbst ausgedachtes Programm programmieren und ich habe mir ein Quiz ausgedacht, deswegen Frage und Antwort ;)




... hm, bei mir zeigt er wieder fehler an ... :( er makiert immer Antwort1 und sagt dazu das Antwort1 nicht gefunden wurde ...
mein Lehrer hat irgendwas von globalen Variablen gesagt, ich weiß, dass sie vor der 1. procedure kommen, aber wie schreibe ich die am besten? ich habe das so gemacht Frage1: Antwort1, aber da zeigt er mir immer noch Fehler an ... :(

[himitsu]

Zitat:

Zitat von CR3ATiV3

aber mein Lazarus zeigt mir Fehler an!

Zitat:

Zitat von CR3ATiV3

... hm, bei mir zeigt er wieder fehler an ...

Zitat:

Zitat von CR3ATiV3

aber da zeigt er mir immer noch Fehler an ... :(

Fehler ... Fehler ... Fehler ... Fehler ... Fehler ... Fehler ... Fehler ...
Welche denn? :glaskugel:

Delphi-Quellcode:

procedure TForm3.Antwort1RadioButton1Change(Sender: TObject);
var Eingabe : String;
begin
  if Frage = Antowrt1
  begin
  then Ausgabe.LoesungEdit1:= 'Richtig!'
end;

Wo sind Frage, Antowrt1 und Ausgabe definiert?

Und globale Variablen sollte man möglichst garnicht verwenden.
Es gibt lokale Variablen, in einer Prozedur/Funktion/Methode, für deren Laufzeit.
Felder in Objekten, für die Lebensdauer der Objekte (rate mal, wofür es die Private- uns Public-Abschnitte in den Klassen gibt.
Und den Rest kann man als Parameter an die anderen Prozeduren weitergeben.