Hey ich hab da nen kleines Problem.
Ich möchte eine Schleife zusammenstellen...
Bei eingabe einer Zahl soll die entsprechnde Procedure aufgerufen werden.

if v_zahl=1 then begin
procedure richtig;
else procedure falsch;
end;
end;

ich habs mit case of versucht aber das klappte auch nicht...brauch unbedingt hilfe....

Vielen Dank schonmal....

markieren

Delphi-Quellcode:

if v_zahl=1 then richtig
            else falsch;

Hinweis: http://www.if-schleife.de/

also das mit der procedure richtig klappte ja schon vorher, aber wenn ich 2 eingebe wird die Procedure abfrage wiederhold und es kommt nich die Procedure falsch!? Könntet ihr mir da nochmal helfen?

zusammenfalten · markieren

Delphi-Quellcode:

Procedure richtig;
begin
    writeln('');
    writeln('');
    writeln( ' '#218#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#191'');
    writeln(' '#179' richtig!!! Love=Liebe '#179' ');
    writeln( ' '#192#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#217'');
    readln;
end;

Procedure falsch;
begin
    writeln('');
    writeln('');
    writeln( ' '#218#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#191'');
    writeln(' '#179' falsch!!! Love=Liebe '#179' ');
    writeln( ' '#192#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#196#217'');
    readln;
end;


procedure abfrage;
begin
    repeat
   writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln(' Geben Sie die richtige Zahl ein Love=?');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
   writeln(' 1. Liebe 2. Herz 3. Leben ');
     writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
        writeln('');
   readln(v_zahl);
    until (v_zahl=1);
    if v_zahl=1 then richtig else falsch;

end;

[edit=mkinzler]Delphi-Tags eingefügt; Code eingerückt Mfg, mkinzler[/edit]

okey hat sich erledigt

edit zu spät..