title image


Smiley Try-Except oder Val
Du hast zwei Möglichkeiten, weitere Info's findest du in der Delphi-Hilfe:

1. Mit Val kannst du selber die Gültigkeit deines Strings testen.

2. Es gibt noch das try-except. Zur Designzeit wird diese aber von Delphi angezeigt.

procedure Test;

const

good :PChar = #$00#$00+#$00#$00+#$A4#$05+#$2C#$93+#$1D#$40; //=1234567890

bad :PChar = #$0A#$00+#$00#$00+#$94#$3F+#$40#$00+#$D0#$16; //=

var

x: extended;

s: string;

Buffer: array[0..63] of Char;

i: integer;

begin

Move(good[0], x, SizeOf(x)); //Wert "x" aus dem Buffer laden

s := FloatToStr(x); //Aus der Gleitkommazahl ein String machen

showmessage('Wert "good": '+s);//Wert von "x" anzeigen



Move(bad[0], x, SizeOf(x)); //Wert "x" aus dem Buffer laden

try

s := FloatToStr(x); //Wiederholen mit ungültiger Zahl -> *Boom*!

except

// hier wird der Fehler abgefangen/bearbeitet/angezeigt, kann aber leer bleiben

end;

showmessage('Wert "bad": '+s); //Wert von "x" anzeigen

end;





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: