Tips (1541)

Tip Rating (2):

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;