23-02-2012, 04:55 PM
محاولتي
PHP كود :
function strlen(str:string):LongInt ;
begin
Result := 0;
while str[Result+1] <> '' do
begin
Inc(Result);
end;
end;

