---
title: "Hjälp med koden"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/27860-hjälp-med-koden"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "FreeZer"
published: "2001-01-06T00:37:00.000Z"
updated: "2001-01-06T15:21:00.000Z"
replies: 2
views: 355
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/27860-hjälp-med-koden"
---

# Hjälp med koden

## #1 — FreeZer, 2001-01-06T00:37Z

Hur ska man skriva för att köra en funktion på t.ex. flera knappar?

for i := 1 to 5 do begin
  button.caption := 'TEST';
end;

Jag vill alltså att koden ska skriva ut 'TEST' i button1.caption till och med button5.caption. Hur skriver man? för på det sätt som jag skrivit ovan fungerar inte.

/Mikey

Permalänk: https://www.webforum.nu/p/27860

## #2 — MattiasW, 2001-01-06T11:22Z

Det finns inget sätt att komma åt knapparna från någon separat lista, så som du vill.
Namnen button1, button.... är bara fiktiva namn som Delphi använder för att göra namnen unika.

Ett sätt att lösa det på är att själv lägga in knapparna i en lista:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
var
  Butts: array\[1..5\] of TButton;
  i: Integer;
begin
  Butts\[1\]:= Button1;
  Butts\[2\]:= Button2;
  Butts\[3\]:= Button3;
  Butts\[4\]:= Button4;
  Butts\[5\]:= Button4;

  for i:= 1 to 5 do
    Butts.Caption:= 'TEST';

Frågan är om man vinner så mycket på det om man bara vill ändra rubriken.

Ett annat sätt är att loopa igenom komponenterna på formuläret och kontrollera deras namn och utifrån de se att komponenten heter button någonting.

Hoppas det var till någon hjälp.

Permalänk: https://www.webforum.nu/p/400533

## #3 — jt, 2001-01-06T15:21Z

Som Mattias skrev kan du loopa igenom komponenterna men istället för att använda namnet tycker jag det verkar bättre kontrollera typen.
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
var
  i: integer;
begin
//Loopar igenom alla komponenter
for i := 0 to ComponentCount - 1 do
  //Kollar om komponenten är en TButton
  if Components is TButton then
    TButton(Components).Caption := 'Test';
end;

Har du knappar som du inte vill ändra caption på så kan du använda propertyn tag för att skilja ut de knappar som ska  ändras.

if (Components is TButton) and (Components.Tag = 1) then

\[Redigerat av jt den 06 jan 2001\]

Permalänk: https://www.webforum.nu/p/400534

---

Tråden på webben: https://www.webforum.nu/amne/programmering/27860-hjälp-med-koden