Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Schriftart mitliefern?

    Delphi
    by ManuMF, 6. Jan 2006
  Mit einer Schleife.
  
  procedure TForm1.FormCreate(Sender: TObject);
  var
  Res : TResourceStream;
  f : Cardinal;
  begin
  for f := 1 to 4 do
  begin
  Res := TResourceStream.Create(hInstance, 'ResFont' + IntToStr(f), PChar('RF' + IntToStr(f)));