edit position für stringgrid

[marabu]

Hallo,

hier mein Vorschlag für deine Koordinateneingabe:

Delphi-Quellcode:

function ParseCoord(const s: string; var x, y: Integer; separator: Char = ','): Boolean;
var
  iSep: Integer;
begin
  iSep := Pos(separator, s);
  x := StrToIntDef(Trim(Copy(s, 1, Pred(iSep))), -1);
  y := StrToIntDef(Trim(Copy(s, Succ(iSep), MaxInt)), -1);
  Result := (x >= 0) and (y >= 0);
end;

procedure TMainForm.EditChange(Sender: TObject);
var
  x, y: Integer; // bei dir sind das Form-Variablen
begin
  with Sender as TEdit do
    if ParseCoord(Text, x, y)
      then Caption := Format('%d, %d', [x, y]) // nur zur Kontrolle
      else Caption := '???';
end;

Was deine anderen Probleme angeht, so weiß ich zu wenig über deine Benutzerschnittstelle. Wo kommt plötzlich das PageControl her?

Freundliche Grüße