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;
|
Bewerten Sie diesen Tipp:
|
|
|
