Zahlen symmetrisch

[dominikkv]

versuchs mal so:

Delphi-Quellcode:

uses
  StrUtils; // Uses ergänzen

function IsSymmetricNumber(const s: String): Boolean; 
begin 
  Result := s = ReverseString(s); 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Temp: Integer; // Dummyvariable
  s: String;
begin
  s := edit1.text + edit2.text + edit3.text + edit4.text;
  // wenn du das ganze mit nur einem edit machen willst dann
  // s := edit1.text;

  if TryStrToInt(s, Temp) then // wenn in s eine zahl drinnsteht...
    begin
      Label2.Visible := IsSymmetricNumber(s);
      Label3.Visible := not Label2.Visible;
    end;
end;