Schiffe versenken "Kein gültiger Integerwert"

[Mulgatree]

Danke für die Antworten, aber inwiefern muss ich ich das jetzt abändern?

[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

[Volker Z.]

Hallo,

vermutlich sollen in Dein TEdit e_zbuch die Buchstaben [A..J] eingegeben werden, im TEdit e_zzahl wohl die Ziffern [1..10].

Wenn dem so ist, dann könntest Du über den Objektinspektor die Eigenschaften

Code:

CharCase   | ecUpperCase
MaxLength  | 1

für Dein TEdit e_zbuch setzen (was das bringt kannst Du in der OH nachlesen).

Den Rest eventuell so:

Delphi-Quellcode:

procedure TForm1.b_schussClick(Sender: TObject);
var
  a, b : integer;
begin
  a := BBelegung;
  b := ZBelegung;
  img_raster1.Canvas.FillRect(Rect(a, b, (a + 20), (b + 20)));
end;

function TForm1.BBelegung : Integer;
var
  s : string;
  c : Char;
begin
  s := Trim (e_zbuch.Text);
  if s = '' then
    raise Exception.Create ('Der Eingabewerte für e_zbuch darf nicht leer sein');
  
  c := s [1];
  if not (c in ['A'..'J']) then
    raise Exception.Create ('Als Eingabewerte für e_zbuch sind nur die Buchstaben A bis J erlaubt');

  Result := 20 * (Ord (c) - 65)
end;

function TForm1.ZBelegung : Integer;
begin
  if Trim (e_zzahl.Text) = '' then
    raise Exception.Create ('Der Eingabewerte für e_zzahl nicht leer sein');

  try
    Result := StrToInt (e_zzahl.Text);
    if (Result < 1) or (Result > 10) then
      raise Exception.Create ('Als Eingabewerte für e_zzahl sind nur die Zahlen 1 bis 10 erlaubt');

    Result := 20 * (Result - 1)
  except
    raise Exception.Create ('Als Eingabewerte für e_zzahl sind nur die Zahlen 1 bis 10 erlaubt')
  end
end;

Wenn Dir das mit dem werfen der Exceptions nicht gefällt, dann kannst Du natürlich auch einen negativen Wert zurückliefern und entsprechend in Deiner b_schussClick behandeln.

Gruß

[Mulgatree]

Danke für die Antwort Volker Z.!
Funktioniert und habe ich direkt eingebaut!