Hvis man har en række komponenter, kan man bruge et loop og FindComponent() til at håndtere dem alle. F.eks.:
for i:=1 to 3 do TPanel(FindComponent('Panel'+IntToStr(i))).color:=clRed;
Hvad hvis jeg gerne vil ordne en række variabler: OrdVar1, OrdVar2 og OrdVar3, og f.eks. sætte dem alle sammen til '' (altså ingenting). Hvordan gør man det i samme stil?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
jaja, jeg var vist lidt rundt på gulvet igår :-) men tak for "tippet"
Kan man definere variabler senere i programmet. Så hvis der er 9999 tal i en fil og jeg gerne vil have lagt samtlige i en array, så kan jeg vente med at definere arrayen til programmet har talt op hvor mange tal der er i filen. Svar nu lige så I kan få nogen point :-)
Synes godt om
Slettet bruger
08. marts 2002 - 20:49#4
Ja det kan du Med SetLength(); du skal dog definere arrayet sammen med de andre variable FX X:Array of Integer;
hvad nu hvis det drejer sig om et skema, som skal indeholde 10-20 og 30-40. Hvis jeg havde defineret den med det samme ville den have heddet:
Skema: Array[10..20,30..40] of integer;
Hvad så hvis jeg vil bruge set length...
var Skema: Array of integer; begin SetLength(Skema,HVAD SKAL DER STÅ HER); end;
Synes godt om
Slettet bruger
10. april 2002 - 21:13#6
Det kan ikke lade sig gøre. hvis du bruger et statiskt array. dit array skal være dynamiskt fx:
type TIArray:Array of Array of Integer;
var Skema: TIArray;
Procedure LavArray; var I:Integer; Begin SetLength(Skema,10); For I:=0 10 Length(Skema)-1 Do // skal sætte HVERT under arrays størelse SetLength(Skema[I1],10); End;
Procedure nydim(const D1,D2:Integer var Skema:TIArray); Var I:Integer; Begin SetLength(Skema,D1); For I:=0 To Length(Skema)-1 Do SetLength(Skema[I],D2); End;
håber du førstår
Mvh. Simon
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.