Delphi wiederholungen zusammenfassen?

Thema durchsuchen

Ansicht

Themen-Optionen

wiederholungen zusammenfassen?

Ein Thema von PaddyMu · begonnen am 14. Okt 2007 · letzter Beitrag vom 16. Okt 2007

Vorheriger Beitrag

Nächster Beitrag

scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.029 Beiträge

Delphi 10.4 Sydney

Re: wiederholungen zusammenfassen?

14. Okt 2007, 13:00

Zitat von fuknersascha:

oder du schreibst es in eine Procedure

[...]

vorausgesetzt deine zahlen bleiben immer gleich ind procedure

somit sparst du dir viele zeilen

Gruss sascha

Sollten sie sich doch ändern, könntest du aber auch eine Prozedur mit Parametern nehmen, z.B.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure Zahlen(myZahl1, myZahl2, myZahl3, myZahl4 : Integer);

begin

 Zahl5 := myZahl1;

 Zahl6 := myZahl2;

 Zahl7 := myZahl3;

 Zahl8 := myZahl4;

end;

[...]

if Zahl17=28 then 

   zahlen(255, 255, 255, 240);

SCRaT