Hallo. Habe mal wieder ein problem. Ich soll aus dieser procedure eine function erstellen, damit man den Code-Abschnitt beliebig in anderne Programmen einbauen kann auch wenn die Bezeichnung der Felder anders ist. Kann mir da jemand einen Tipp geben wie es gehen soll?
Kurz zu dem Mini-Programm. Es besteht aus 4 Feldern.
1. Stellenangabe (Man gibt die Anzahl an Stellen die man haben will (z. B. 7)
2. Anfangswert (Man gibt eine Zahl an (z. B. 20)
3. Steigung (Man gibt hier eine Zahl um die der Anfangswert gesteigert wird (z. B. 300)
4. Neuer Wert (Hier werden 2 & 3 zusammengezählt und ausgewertet)
Alle nicht benutzen Stellen bekommen automatisch eine führende "0" in diesem Beispiel wäre es dann 0000320
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
| procedure TFormWertsteigern.BitBtnOKClick(Sender: TObject); var l_ZahlEingabe, l_ZahlSteigern, l_ZahlNeuerWert, l_ZahlErgebnis, l_i_max, l_s_erg : Integer; begin l_ZahlEingabe := StrToInt(EditZahlEingabe.Text); l_ZahlSteigern := StrToInt(EditZahlSteigern.Text); l_i_max := StrToInt(EditStellen.Text);
l_ZahlNeuerWert := l_ZahlEingabe + l_ZahlSteigern; EditZahlNeuerWert.Text := IntToStr(l_ZahlNeuerWert); while Length(EditZahlNeuerWert.Text) < l_i_max do begin EditZahlNeuerWert.Text := '0' + EditZahlNeuerWert.Text; end;
if (Length(EditZahlNeuerWert.Text) < l_i_max) then begin EditZahlNeuerWert.Text := '0'+ EditZahlNeuerWert.Text; end; end; |
daraus soll ich nun eine function machen die überall einsetzbar ist.
PS: Danke für die Hilfen und Tipps
MfG