unit StringListUnit;

interface

uses
  Classes;

procedure InsertAdd(StrList: TStrings; Index: Integer; AddText: String);
procedure InsertNext(StrList: TStrings; Index: Integer; AddText: String);

implementation

{-------------------------------
//  挿入か追加を行う関数
機能:       Stringsに対してIndexが普通の場合はInsert、
            Indexが最終行+1の場合は最終行に追加する
備考:
履歴:       2006/11/13(月) 23:11
//------------------------------}
procedure InsertAdd(StrList: TStrings; Index: Integer; AddText: String);
begin
  if Index = StrList.Count then
  begin
    StrList.Add(AddText);
  end else
  begin
    StrList.Insert(Index, AddText);
  end;
end;
//------------------------------

{-------------------------------
//  指定した次の行に挿入を行う関数
機能:       通常のInsertでは指定行の前にInsertだが
            InsertNextでは次の行にInsertする
備考:
履歴:       2006/11/13(月) 23:11
//------------------------------}
procedure InsertNext(StrList: TStrings; Index: Integer; AddText: String);
begin
  if Index = StrList.Count-1 then
  begin
    StrList.Add(AddText);
  end else
  begin
    StrList.Insert(Index+1, AddText);
  end;
end;
//------------------------------

end.