for each lykke

Man kan ikke ligge strenge sammen på den måde og mener heller der er nogen for each måske en "do with", men ved ikke om den kan bruges i dette tilfælde med form1.

Pascal som Delphi jo trods alt er en variant af har ikke en foreach løkke. Brug en
almindelig for løkke.

Jeg mener nu nok at man kan konkatanere strenge med + i delphi. Jeg er mere
skeptisk overfor hvordan man nu traverserer en form.

Hvordan laver man en for lykke hvor man løber alle objecterne igennem?

jeg har en form med 98 combobox på..

Jeg vil gerne have en sum på dem alle ind i en integer..

Kan det virklig ikke gøres på mindre en 98 linnier?

Du skal bruge en traversal function f.eks:

function DoIt(WinC : TWinControl) : integer;
var
  i : integer;
begin
  result:=0;
  for i:=0 to WinC.ControlCount-1 do
    if WinC.Controls[i] is TComboBox then
      Inc(Result,StrToInt((WinC.Controls[i] as TComboBox).Text))
    else
      if WinC.Controls[i] is Twincontrol then
        Inc(Result,DoIt((WinC.Controls[i] as TWinControl)));
end;

Den kalden sådan:

var
  Sum : integer;
begin
  sum:=DoIt(Form1);
  showmessage(inttostr(sum));
end;

Til min forrige post: Jeg mener self. en rekursiv funktion. En traversal funktion er vel noget vrøvl :)

Du er for sej kroning...

Tusinde tusinde tak..

Klikker du svar

Jep