mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 09:29:26 +02:00
8ed055e4bf
U compiler/nbas.pas --- Recording mergeinfo for merge of r44096 into '.': U . --- Merging r46274 into '.': G compiler/nbas.pas --- Recording mergeinfo for merge of r46274 into '.': G . --- Merging r48127 into '.': A tests/webtbs/tw38337.pp --- Recording mergeinfo for merge of r48127 into '.': G . git-svn-id: branches/fixes_3_2@48128 -
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.
|