TPicture Namen aus 2 Teilen zusammensetzen ?

[schaak]

Meine Frage zur Imagelist hat ja Bernhard wie folgt beantwortet, das klappt auch.
Danke übrigends

Wenn du eine Bitmap aus einer Image-List holen willst, musst du die Methode GetBitmap benutzen.
Beispiel:
ImageList1.GetBitmap(12, Image1.Picture.Bitmap);
Das Beispiel weist den Image1 das 13. Bild (Index=12) aus der ImageList1 zu.

Meine Problem ist jetzt folgendes, ich hab 100 Images und möchte diesen Satz jetzt nicht hundertmal schreiben
Da die Namen standardmäßig Image1 bis Image100 heißen, kann ich den
Variablennamen irgendwie mit einer Schleife hochzählen ?
Also so in der Art:
Bild: TPicture;
Bild = 'Image' + i;
...(#,Bild.Picture.Bitmap);

Bis jetzt sind alle Versuche gescheitert, da Bild ein TPicture ist und der zusammengesetzte Name ein String.

[Andreas Kosch]

Hallo,

in der Delphi-Hilfe ist das folgende Beispiel für <b>FindComponent</b> zu finden:

<i>Das folgende Beispiel erstellt 20 Eingabefelder. und greift über FindComponent mit den Namen der Eingabefelder auf die neu erstellten Eingabefelder zu. </i>
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
const
NamePrefix = 'MyEdit';
begin
for i := 1 to 20 do begin
TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
begin
Left := 10;
Top := i * 20;
Parent := self;
end;
end;
end;
</pre&gt

[schaak]

Vielen Dank, hat geklappt.

Aber es hätte auch gerreicht, wenn du

const = bild;

ImageList1.GetBitmap(wert, TImage(FindComponent(bild + IntToStr(i))).Picture.Bitmap);

geschrieben hättest :

[schaak]

Meine natürlich

const bild = 'Image';

Da waren die Finger wieder schneller als das Gehirn :

[Andreas Kosch]

Hallo,

ja - das hätte gereicht. Ich kann mir eben manchmal den Fingerzeig auf die Delphi-Hilfe nicht verkneifen ;-)

P.S: Über die Zwischenablage kopiert geht zudem schneller als von Hand eingetippt