blob: cc6b28c845e4d6f2c1e3fa934c877e264fe4a575 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{$ifdef fpc} {$mode delphi}{$endif}
Type
TStringBuilder = Class
function Insert(Index: Integer; const Value: string; Count: Integer = 1): TStringBuilder; overload;
function Insert(Index: Integer; const Value: array of Char): TStringBuilder; overload;
end;
function TStringBuilder.Insert(Index: Integer; const Value: array of Char): TStringBuilder;
begin
writeln('Called TStringBuilder.Insert(Index: Integer; const Value: array of Char): TStringBuilder;');
result:=nil;
end;
function TStringBuilder.Insert(Index: Integer; const Value: string; Count: Integer): TStringBuilder;
begin
writeln('Called TStringBuilder.Insert(Index: Integer; const Value: string; Count: Integer): TStringBuilder;');
result:=nil;
end;
var sb : TSTringBuilder;
begin
sb:=TStringBuilder.Create;
sb.Insert(0, '0 ');
sb.Free;
end.
|
