Hi !
So funzts:
Delphi-Quellcode:
procedure TForm1.wimageload;
var
i: integer;
begin
for i:=1 to 32 do
begin
karten[i]:=TBitmap.Create;
karten[i].LoadFromFile(IntToStr(i)+'.bmp');
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
wimageload;
end;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
stringgrid1.Canvas.Draw(rect.left, rect.top, Karten[ACol+1]);
end;
Du könntest die Bitmaps auch als Resourcen speichern, siehe dazu den DBNavigator.
