mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 21:28:21 +02:00
21 lines
255 B
ObjectPascal
21 lines
255 B
ObjectPascal
program fs;
|
|
|
|
{$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.
|