استفسار في دوال داخلها لوب

[Agmcz]

السلام عليكم ورحمة الله وبركاته
أما بعد قمت بكتابة هده الدوال لكن توقفت بسسب مشكل
في دالة DLoop تعطيني نتجية دورة واحدة وتتوقف
بإنتضار ردودكم

PHP كود :

function DLoop(S: string): string;
var
  ls: TStringList;
  i, p: Integer;
  data: string;
begin
  ls := TStringList.Create;
  ls.Text := S;
  begin
    for i := 0 to ls.Count -1 do
    begin
      p := Pos('/">', ls.Strings[i]);
      data := Copy(ls.Strings[i], p+3, Length(ls.Strings[i])-p);
      Result := data;
   end;
 end;
end;

function Results(S: string): string;
begin
  Result := DLoop(S);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text := Results(Memo1.Text);
end; 


[Agmcz]

الحمد لله
بعد القليل من تركيز وجدت حل
بإنتظار حلولكم وإن شاء الله سأضع حلي

[Lam.Abdeldjalil]

السلام عليكم

الـ Result داخل الحلقة

بالتوفيق

[Agmcz]

الحل هو أنشأت ليست سترينج أخرى
الداتا الناتجة من الحلقة تضاف لها
في أخر دالة
Result := Liststring.Text
والحمد لله كل شيء تمام