Schiffe versenken "Kein gültiger Integerwert"

[p80286]

Gegenfrage, was willst Du eigentlich erreichen?
rein formal sollte dies funktionieren:

Delphi-Quellcode:

function TForm1.BBelegung(A:string): integer;
var Vergleich, Ascii, c, d: integer;
begin
  d:=StrToInt(A);
  c:=0;
  Vergleich:=65;
  Ascii:=d;
while Vergleich <> Ascii do
   begin
     inc(c, 20);
     inc(Vergleich)
end;
 result:=c;
end;

Gruß
K-H