Delphi-Quellcode:
repeat
EingabeEinlesenUndPruefen;
writeln('Beenden? [y]');
readln(y);
until y='y';
Delphi-Quellcode:
procedure EingabeEinlesenUndPruefen;
var
erfolgreich: Boolean;
eingabe: string;
i: Integer;
begin
erfolgreich := True;
repeat
writeln('Bitte Hexadezimalzahl eingeben:');
readln(eingabe);
for i := 1 to Length(eingabe) do
begin
if not (AnsiChar(eingabe[i]) in ['0'..'9','A'..'F','a'..'f']) then
begin
Writeln('Fehlerhafte Eingabe!');
erfolgreich := False;
Break;
end;
end;
until erfolgreich;
WandleHexInDez(eingabe);
end;
Versuch es mal so. Musst nur noch die eigentliche Umwandlung und Ausgabe in eine procedure "WandleHexInDez" packen.
Zitat:
kann ich zu einem repeat auch mehrere untils machen??
Nein.