Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.160 Beiträge
 
Delphi 10 Seattle Enterprise
 
#8

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

  Alt 15. Aug 2013, 23:47
Ich hätte nie gedacht, dass ich auch einmal mit so etwas langeweile, aber ich glaube, wichtiger als ein paar Buchstaben einzusparen wäre erst einmal
  • den Kram ordentlich zu formatieren
  • grundlegende Sprachkonstrukte zu verstehen
  • Oberflächen-Komponenten richtige Namen zu geben?

    Das Formular "SatzdesPytagoras" (wenn schon, dann "Pythagoras", oder?) kann man ja noch machen, aber wenn man in ein paar Tagen nochmal über den Quelltext schaut hilft einem so etwas wie Edit1 und Edit2 sicher nicht weiter.

Was soll ein
Delphi-Quellcode:
if Art=3 then
 c:= Sqrt(Strtofloat(Edit1.text)*Strtofloat(Edit1.text) + Strtofloat(Edit2.text) * Strtofloat(Edit2.text));
  showmessage ('C ist: ' + floattostr(c));
 begin
 
end;
wirklich bewirken? Bei der Einrückung und begin/end-Benutzung weiß ich nicht, ob man wirklich verstanden hat, was man da tut.


Ich bin heute in Spaßbremsen-Stimmung.

Geändert von Der schöne Günther (15. Aug 2013 um 23:49 Uhr)
  Mit Zitat antworten Zitat