Kan det lade sig gøre...

[Kurt G]

Jeg har 8 TEdit under hinanden, som hedder:
ediM1, ediM2, ediM3, ediM4, ediM4, ediM5, ediM6, ediM7 og ediM8.

De skal tildeles tekst for de v�rdier, der er i et array, som er defineret
s�ledes:
KanalKal: Array[1..8] Of Real;
Det g�r jeg i �jeblikket s�ledes:
ediM1.Text := FormatFloat('##0.000',(KanalKal[1]));
ediM2.Text := FormatFloat('##0.000',(KanalKal[2]));
ediM3.Text := FormatFloat('##0.000',(KanalKal[3]));
ediM4.Text := FormatFloat('##0.000',(KanalKal[4]));
ediM5.Text := FormatFloat('##0.000',(KanalKal[5]));
ediM6.Text := FormatFloat('##0.000',(KanalKal[6]));
ediM7.Text := FormatFloat('##0.000',(KanalKal[7]));
ediM8.Text := FormatFloat('##0.000',(KanalKal[8]));

Men findes der ikke en m�de, s� det kan g�res i en loop?

For x := 1 to 8Do
Begin
??????[x] := FormatFloat('##0.000',(KanalKal[x]));
End;

Mvh Kurt

[Michael Haase]

Hvis du smider dine TEdit i en Tgroupbox, kan du bruge f�lgende:

editno := 0;
for i := 0 to Groupbox1.controlcount - 1 do
begin
if (groupbox1.controls[i] is TEdit) then
begin
inc(editno);
(groupbox1.controls[i] as TEdit).text :=
FormatFloat('##0.000',(KanalKal[editno]));
end
end;


EditNo skulle kun v�re n�dvendigt, hvis du ogs� kommer andre komponenter
i Groupboxen. Du kan undlade editno, og s� skal det v�re KanalKal[i + 1]
i stedet.

[Kurt G]

"Michael Haase" skrev i meddelelsen
news:517edb18$0$56782$edfa...@dtext02.news.tele.dk...

------------------------------------------------------------------------------------------------

Tak for dit svar, jeg vil pr�ve, om jeg kan f� det til at virke.
Mvh Kurt