fpcsrc/tests/webtbs/tw1251b.pp


1
2
3
4
5
6
7
8
9
10
11
12

program strings;

uses classes;

var list : TStringList;

function strcat(dest,source : pchar) : pchar;
begin
end;

begin
end.