Gentagne procedurer. Hvordan?
Hej!Jeg har lavet et lille program, hvor jeg har en PageControl med 8 faneblade. På faneblad 1 har jeg så indsat en masse labels og edits. Jeg har så en procedure, som udfører nogle beregninger på det aktuelle faneblad.
De andre 7 faneblade skal være nøjagtigt ens! Bortset fra, man selvfølgelig skal kunne indtaste andre oplysninger i edits'ne. Min ide er så, simpelt hen at kopiere samtlige objekter på faneblad 1 og så smække dem over på de andre faneblade bare med et andet navn: fx på faneblad 1: F1Edit.Text := bla bla. Faneblad 2: F2Edit.Text := bla bla.
I så fald kræves det, at jeg har 8 forskellige procedurer, som gør nøjagtigt det samme, bortset fra, at de hver især gælder fx F1Edit og F1Label1 henholdsvis F2Edit og F1Label1.
Mit spørgsmål er nu:
Kan man fx sætte en variabel X, som man så kan ændre, så det er nogle andre objekter den omhandler. Eks:
procedure Blabla;
var
x: Integer;
begin
F[x]Edit.Text := 'bla bla';
end;
Jeg ville i så fald kunne ændre variabel X til fx 2 og så ville proceduren omhandle objekterne på faneblad 2 istedet for 1.
I det her tilfælde, ville for X = 1 omhandle F1Edit.Text og X = 2 ville omhandle F2Edit.Text.
Håber jeg gør mig forståelig...