تبدیل نوع pchar بهstr

سلام
من می خواستم یک داده از نوع pchar رو به داخل یه متغییر از نوعstring بریزم
برای همین کار تابعی می خوام که اینارو انجام بده
مثل تابع strtoint
با تشکر
:40::11::11::11::11::11::11::11::11:

با سلام
نياز به تابع خاصي نيست چون خود دلفي اين تبديل نوع رو بدون هيچ مشكلي انجام ميده. اما روش مطمئن تر استفاده از تابع string هست:

کد:

---

procedure TForm1.TntButton1Click(Sender: TObject);
var
  str1:PChar;
  str2:String;
begin
  str1:='sample text';
  str2:=string(str1);
  ShowMessage(str2);
end;

---

سلام

مي تونيد از تابع StrPas هم استفاده كنيد :

کد:

---

function StrPas(const Str: PChar): string;

---