type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1; implementation
procedure TForm1.Button1Click(Sender: TObject); begin begin with TresourceStream.Create(HINSTANCE,\'DAT001\',RT_RCDATA) do Try position := 0; SaveToFile(\'C:\\test.dat\'); finally free; end; end;
end; end.
Min Resource fil: //START OF FILE DAT001 RCDATA \"test.dat\" //END OF FILE
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Min Resource fil: //START OF FILE DAT001 RCDATA \"test.dat\" <-- path \"c:\\test.dat\" //END OF FILE
Stoney
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.