نقل سلسلة بيانات

[kachwahed]

وفيك أخي الكريم
بهذا الشكل تتم الترجمة، غير أني لم أجرب الاستدعاء

PHP كود :

type
  TStrArray = array[0..7] of string;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function SendString: TStrArray;
var
  StrArray: TStrArray;
  I: Integer;
begin
  for I := Low(StrArray) to High(StrArray) do
    StrArray[I] := TEdit(Application.FindComponent(Format('Edit%s', [I]))).Text;
  Result := StrArray;
end;

exports
  SendString; 


ولا أعتقد أن هذه الطريقة أنسب لما تحاول القيام به
لو تخبرنا بالتفاصيل ربما نجد حلا أفضل
بالتوفيق.