+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استفسار في دوال داخلها لوب (/showthread.php?tid=3146)
استفسار في دوال داخلها لوب - Agmcz - 04-06-2011
السلام عليكم ورحمة الله وبركاته
أما بعد قمت بكتابة هده الدوال لكن توقفت بسسب مشكل
في دالة 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 - 04-06-2011
الحمد لله
بعد القليل من تركيز وجدت حل
بإنتظار حلولكم وإن شاء الله سأضع حلي
استفسار في دوال داخلها لوب - Lam.Abdeldjalil - 04-06-2011
السلام عليكم
الـ Result داخل الحلقة
بالتوفيق
استفسار في دوال داخلها لوب - Agmcz - 05-06-2011
الحل هو أنشأت ليست سترينج أخرى
الداتا الناتجة من الحلقة تضاف لها
في أخر دالة
Result := Liststring.Text
والحمد لله كل شيء تمام