Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Fehlermeldung 'A' ist kein gültiger Integerwert?!? (https://www.delphipraxis.net/99164-fehlermeldung-ist-kein-gueltiger-integerwert.html)

zahor 7. Sep 2007 20:55


Fehlermeldung 'A' ist kein gültiger Integerwert?!?
 
Weiß von euch jemand, was hier faul ist?
in das Array 's' werden vorher Chars im Bereich von 'A'...'F' eingelesen.
Kompilieren lässt sich das ganze problemlos, zur Laufzeit krieg ich dann aber immer eine Fehlermeldung '<Buchstabe>' ist kein gültiger Integer-Wert. Der Buchstabe ist s[i].

Delphi-Quellcode:
var v: array[0..2] of string;
    s: array[0..2] of char;
    i: integer;
.
.
.
for i := 0 to 2 do
  case ord(s[i]) of
    65: v[i] := (stringgrid1.Cells[strtoint(s[i]),0]);     // 65: 'A' etc.
    66: v[i] := (stringgrid1.Cells[strtoint(s[i]),1]);
    67: v[i] := (stringgrid1.Cells[strtoint(s[i]),2]);
    68: v[i] := (stringgrid1.Cells[strtoint(s[i]),3]);
    69: v[i] := (stringgrid1.Cells[strtoint(s[i]),4]);
    70: v[i] := (stringgrid1.Cells[strtoint(s[i]),5]);
    71: v[i] := (stringgrid1.Cells[strtoint(s[i]),6]);
    72: v[i] := (stringgrid1.Cells[strtoint(s[i]),7]);
  end;
:cry: :roll: :(

mkinzler 7. Sep 2007 20:58

Re: Fehlermeldung 'A' ist kein gültiger Integerwert?!?
 
Versuch mal:
Delphi-Quellcode:
v[i] := (stringgrid1.Cells[Ord(s[i]),0]);

dominikkv 7. Sep 2007 21:01

Re: Fehlermeldung 'A' ist kein gültiger Integerwert?!?
 
ganz einfach weil du ein 'A' nich zu einem Integer umwandeln kannst...
vllt wolltest du ja stringgrid1.Cells[ord(s[i]),0] verwenden...

och mist...ich sehe das hat grad einer as gleiche gepostet^^

zahor 7. Sep 2007 21:20

Re: Fehlermeldung 'A' ist kein gültiger Integerwert?!?
 
ach ist ja eigentlich logisch!
:wall: :wall: :wall:
danke!


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:47 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