[تمرين] استخراج حجم String بدون استعمال الدالة Length

[me_delphi]

تعديل

PHP كود :

function LengthOfSTR(S: string): Byte;
var
  i: Byte;
begin
  if S = '' then
  begin
    Result := 0;
    Exit;
  end;
  i := 1;
  while S[i] <> #0 do
    inc(i);

  Dec(i);
  Result := i;
end;