mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 08:48:03 +02:00
19 lines
242 B
PHP
19 lines
242 B
PHP
{$mode objfpc}{$H+}
|
|
|
|
function UTF8Length(const s: string): PtrInt; inline;
|
|
begin
|
|
Result:=9;
|
|
end;
|
|
|
|
|
|
var
|
|
v1: string;
|
|
s: shortstring;
|
|
i: Integer;
|
|
begin
|
|
v1 := '123456789';
|
|
s := v1;
|
|
for i := 1 to UTF8Length(s)-8 do begin
|
|
end;
|
|
end.
|