Uses Unit SysUtils
A função QuotedStr retorna a string do parâmetro com apóstrofo (') no início e fianal. Se a string passada for em branco, a função retorna dois apóstrofos ('').
Sintaxe da sua utilização:
QuotedStr('Texto');
Ex:
procedure TForm1.Button14Click(Sender: TObject);
begin
ShowMessage(QuotedStr('Márcio Edésio Simão'));
end;
ShowMessage(QuotedStr('Márcio Edésio Simão'));
end;
Nenhum comentário:
Postar um comentário