<PRE>
Ich habe ein nun wirklich kleines Problem.
<BR>
Folgende Funktion :
<BR>
function IsInt ( sText : String ) : Boolean;
var iTmp : Real;
iCode : Integer;
begin
sText := StringReplace(sText, ',', '.', [rfReplaceAll, rfIgnoreCase]);
Result := False;
try
Val( sText, iTmp, iCode );
Result := iCode = 0;
except
end;
end;
<BR>
Ich bekommen vom Compiler immer den Hinweis :
Auf 'iTmp' zugewiesener Wert wird niemals benutzt -> Val( sText, iTmp, iCode )
<BR>
Wie kann ich dem Abhilfe schaffen ?
Danke im vorraus...
</PRE>
Ich habe ein nun wirklich kleines Problem.
<BR>
Folgende Funktion :
<BR>
function IsInt ( sText : String ) : Boolean;
var iTmp : Real;
iCode : Integer;
begin
sText := StringReplace(sText, ',', '.', [rfReplaceAll, rfIgnoreCase]);
Result := False;
try
Val( sText, iTmp, iCode );
Result := iCode = 0;
except
end;
end;
<BR>
Ich bekommen vom Compiler immer den Hinweis :
Auf 'iTmp' zugewiesener Wert wird niemals benutzt -> Val( sText, iTmp, iCode )
<BR>
Wie kann ich dem Abhilfe schaffen ?
Danke im vorraus...
</PRE>
Comment