04-06-2011, 01:01 PM
السلام عليكم ورحمة الله وبركاته
أما بعد قمت بكتابة هده الدوال لكن توقفت بسسب مشكل
في دالة DLoop تعطيني نتجية دورة واحدة وتتوقف
بإنتضار ردودكم
أما بعد قمت بكتابة هده الدوال لكن توقفت بسسب مشكل
في دالة 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;