mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 11:28:10 +02:00
21 lines
213 B
ObjectPascal
21 lines
213 B
ObjectPascal
{$inline on}
|
|
{$mode objfpc}{$H+}
|
|
|
|
resourcestring
|
|
rs = 'All files';
|
|
|
|
function fs: string;inline;
|
|
begin
|
|
Result:='*';
|
|
end;
|
|
|
|
|
|
function f: String;
|
|
begin
|
|
Result:=rs+' ('+fs+')|'+fs;
|
|
end;
|
|
|
|
begin
|
|
writeln(f);
|
|
end.
|