AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Eingaben prüfen (Pascal)

Ein Thema von chris_82 · begonnen am 23. Apr 2004 · letzter Beitrag vom 2. Mai 2004
Antwort Antwort
Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#1

Re: Eingaben prüfen (Pascal)

  Alt 2. Mai 2004, 15:58
Zitat von dizzy:
IMHO wäre es eine Variante, wenn du die Eingabe zunächst in den Zieldatentyp (hier wohl Real) konvertierst, und dann wieder zurück zu String. Wenn jetzt der gelesene, und der 2x konvertierte String noch gleich sind, so kann der eingegebene Wert ohne Rundungsfehler in ausreichender Genauigkeit in Real gespeichert werden.
Wenn du auch das berücksichtigen willst, dann würde der Code so aussehen:
Delphi-Quellcode:
function SichereEingabe(Text: String): Integer;
var
  Wert, Code: Integer;
  WertEin, WertNeu: String;
begin
  repeat
    Write(Text+' ');
    Readln(WertEin);
    Val(WertEin,Wert,Code); //Wenn Code <> 0, dann war in der Eingabe ein ungültiges Zeichen
    if Code <> 0 then
      Writeln('Ungültige Eingabe')
    else
    begin
      Str(Wert,WertNeu);
      if WertNeu <> WertEin then
        Code := 1;
    end;
  until Code=0;
  SichereEingabe := Wert;
end;
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz