Möchte meinen Script verkürzen bzw. function erstellen

[Homie15]

...

[DeddyH]

Zumindest die eigentliche Berechnung könntest Du in Funktionen auslagern und statt der If-Abfragen eine case-Abfrage verwenden.

Delphi-Quellcode:

function Kathete(AndereKathete, Hypotenuse: double): double;
begin
  Result := Sqrt(Sqr(Hypotenuse) - Sqr(AndereKathete));
end;

function Hypotenuse(Ankathete, Gegenkathete: double): double;
begin
  Result := Sqrt(Sqr(Ankathete) + Sqr(Gegenkathete));
end;

...

case Art of
  1: ...
  2: ...
  3: ...
end;

[Homie15]

schonmal danke, ich hatte iwie mehr daran gedacht die ifkeypressfunktionen in eine zu packen aber kein plan wie..

[ringli]

Du kannst den einzelnen Edit's im Objektinspektor jeweils die gleiche KeyPress-Procedure zuweisen. Damit hättest du nur noch eine KeyPress-Procedure die du ggf. anpasssen musst.

[DeddyH]

Dann musst Du aber auch den Sender auswerten.

[Furtbichler]

Zitat von DeddyH:

Dann musst Du aber auch den Sender auswerten.

Ja. Wenn man es noch kürzer macht. Sonst nicht.

[Furtbichler]

Delphi-Quellcode:

procedure DoKeyPress (aEdit : TEdit; Var aKey : Char);
Begin
  if not (aKey in [#48..#57,#8,#44]) then aKey:=#0;
  if (aKey in[',']) and (aEdit.Text='') then
  begin
     aEdit.Text:= '0,';
     aEdit.Selstart:=Length(aEdit.Text);
  end;
  if (Key in[',']) and (pos(',',aAdit.Text)>0) then 
    aKey:=#0;
End;

procedure TSatzdesPytagoras.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  DoKeyPress(Edit1, Key);
end;

procedure TSatzdesPytagoras.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  DoKeyPress(Edit2, Key);
end;

procedure TSatzdesPytagoras.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  DoKeyPress(Edit3, Key);
end;

Geht aber noch kürzer (Der 'Sender' ist jeweils das TEdit-Control, in dem eine Taste gedrückt wurde).