Stuff

[Janilabo]

SCAR version of Delphi's StuffString.

Example included.

 

Stuff

[scar]function Stuff(str, s: string; iFrom, iCount: Integer): string;

begin

Result := Copy(str, 1, Length(str));

Delete(Result, iFrom, iCount);

Insert(s, Result, iFrom);

end;

 

var

str: string;

 

begin

ClearDebug;

str := 'Stuff test to see this is working..!';

WriteLn(Stuff(str, '() WORKS', 6, 30));

end.[/scar]