Ich würde es gerne schaffen, dass ich das, was ich in einem Editfeld eingebe als Variable umwandeln kann und es so in Formeln bzw dann in der Ausgabe verwenden kann !!!!!

Weiß da vielleicht jemand Rat ?

einfach im OnChange ereignis des editfeldes den wert der variable mit dem inhalt des editfeldes gleichsetzen. die variable sollte nur global sein, da du sonst wenig damit anfangen werden kannst...

Zitat von Meflin:

... die variable sollte nur global sein, da du sonst wenig damit anfangen werden kannst...

Ich hoffe du meinst nicht wirklich "global" sondern das die Variable in der Klassendeclaration declariert werden soll

Hallo!

Wenn ich dich richtig verstehe, liegt dein Problem darin, dass du mit dem Text nicht rechnen kannst. Dabei wird dir die Funktion StrToInt, welche einen String in einen Integer umwandelt bzw die Funktion StrToFloat, welche den String in eine Fließkommazahl umwandelt helfen. Beide Funktionen können jedoch Fehlermeldungen bringen, wenn der Text nicht mit dem Datentyp übereinstimmt (also beispielsweise Buchstaben enthält o.ä.).

Auf den Inhalt des Edit-Feldes greifst du mit FormX.EditX.Text zu.

Zitat von Niels:

Beide Funktionen können jedoch Fehlermeldungen bringen, wenn der Text nicht mit dem Datentyp übereinstimmt (also beispielsweise Buchstaben enthält o.ä.).

Dann könnte er immernoch auf StrToIntDef und StrToFloatDef umsteigen, die haben ja keine Fehlermeldungen

An sich hört sich das ja ziemlich einfach an, aber das Problem ist, dass wenn ich Edit1.Text und eine Variable gleichsetze, die Fehlermeldung kommt: Inkompatible Typen 'String' und 'Integer' !

Weswegen du ja auch den Typen umwandeln sollst

markieren

Delphi-Quellcode:

var x: Integer;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  x := StrToIntDef(Edit1.Text, 0);
  {oder}
  x := StrToIntDef(TEdit(Sender).Text, 0);
end;

Hi taza,

die Funktion TryStrToInt macht dasselbe und bringt dir evtl. einen Fehler:

markieren

Delphi-Quellcode:

var
  Text: String;
  Zahl: Integer;
begin
  Text := '450a'; //das 'a' wird einen Fehler erzeugen
  if TryStrToInt(Text, Zahl) then
    ShowMessage('Kein Fehler')
  else
    ShowMessage('Fehler!');
end;

Greetz
alcaeus

Vielen Dank für die vielen und vorallem schnellen Antworten, ich hab's jetzt hinbekommen !!!!

Bis ich wieder eine neue Frage habe !!!!!