Einzelnen Beitrag anzeigen

Benutzerbild von entwickler
entwickler

Registriert seit: 16. Feb 2011
Ort: Herten
78 Beiträge
 
Delphi 5 Professional
 
#41

AW: PNGs oder Dateien allgemein in EXE einbinden und auslesen

  Alt 17. Nov 2011, 20:33
@ DeddyH
Klar, immer her damit!

@ wicht
Klingt logisch, habs in ne Prozedur gepackt:

Delphi-Quellcode:
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  i : word;
begin
    for i := 1 to 493 do
      Memo.Lines.Add(inttostr(i) + ' RCDATA "' + inttostr(i)+ '.png"');
    Memo.Lines.SaveToFile('C:\Pokemon\Pokedex.rc'); // oder wohin auch immer
end;
War jetzt auch keine große Herausforderung
Traue einem PC nur soweit, wie du ihn werfen kannst.

Geändert von entwickler (17. Nov 2011 um 21:11 Uhr) Grund: Unvollständig
  Mit Zitat antworten Zitat