implementation {$R *.DFM} {$R test.res} //Your resource file procedure TForm1.Button1Click(Sender: TObject); var buffer: array[0..255] of Char; begin Loadstring(hinstance, 1, @buffer, 255); //1 = first string label1.Caption := StrPas(buffer); end;
{$R *.DFM} {$R test.res} //Your resource file procedure
TForm1.Button1Click(Sender: TObject); var
buffer: array
[0..255] of
Char; begin
Loadstring(hinstance, 1, @buffer, 255); //1 = first string label1.Caption := StrPas(buffer); end
;