unit WideStrRecListUnit;

interface

uses
  SysUtils, //+EmptyStr
  WideStringRecordList;


function InsertLineHeadStr(const S, InsertStr: WideString): WideString;


implementation

function InsertLineHeadStr(const S, InsertStr: WideString): WideString;
var
  StrList: TWideStringRecordList;
  i: Integer;
begin
  if S = EmptyStr then
  begin
    Result := InsertStr;
  end else
  begin
    StrList := TWideStringRecordList.Create; try
    StrList.Text := S;
    for i:=0 to StrList.Count-1 do
    begin
      StrList.Items[i] := InsertStr + StrList.Items[i];
    end;
    Result := StrList.Text;
    finally StrList.Free; end;
  end;
end;

end.