|
Registriert seit: 17. Jun 2009
616 Beiträge
|
AW: Methodenaufruf nur für Klassenmethoden und Konstruktoren
16. Dez 2014, 10:29
Hallo zusammen,
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
liNewValue: Integer;
begin
liNewValue := Ceil( StrToInt(Edit1.Text) / StrToInt(Edit2.Text) );
if not ( liNewValue mod 2 = 0 ) then
Inc( liNewValue );
Edit3.Text := IntToStr(liNewValue);
end;
So geht's natürlich auch, wenn Du den Float-Wert nicht noch für andere Berechnungen benötigst.
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.
|