unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, StringResource;

type
  TForm1 = class(TForm)
    StringResource1: TStringResource;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  WideStringRecordList,
  StringRecordList,
  StringClassList,

  testWideStringRecordList,
  testStringRecordList,
  testStringClassList,
uses_end;

{↓空行を除去して出力するテスト
   TStringRecordList版}
procedure TForm1.Button1Click(Sender: TObject);
var
  StrRecList: TStringRecordList;
  i: Integer;
begin
//  StringRecordList.testGetSetText;

  StrRecList := TStringRecordList.Create; try

  for i := 0 to StringResource1.Lines.Count-1 do
  begin
    StrRecList.Add(StringResource1.Lines.Strings[i]);
  end;

  for i := StrRecList.Count-1 downto 0 do
  begin
    if StrRecList.Items[i] = EmptyStr then
      StrRecList.Delete(i);
  end;

  for i := 0 to StrRecList.Count-1 do
  begin
    Memo1.Lines.Add(StrRecList.Items[i]);
  end;

  finally StrRecList.Free; end;
end;

{↓空行を除去して出力するテスト
   TStringClassList版}
procedure TForm1.Button2Click(Sender: TObject);
var
  StrClsList: TStringClassList;
  StrCls: TStringClass;
  i: Integer;
begin
//  testStringClassList;
//  StringClassList.testGetSetText;

  StrClsList := TStringClassList.Create; try

  for i := 0 to StringResource1.Lines.Count-1 do
  begin
    StrCls := TStringClass.Create;
    StrCls.Item := StringResource1.Lines.Strings[i];
    StrClsList.Add(StrCls);
  end;

  for i := StrClsList.Count-1 downto 0 do
  begin
    if StrClsList.Items[i].Item = EmptyStr then
      StrClsList.Delete(i);
  end;

  for i := 0 to StrClsList.Count-1 do
  begin
    Memo1.Lines.Add(StrClsList.Items[i].Item);
  end;

  finally StrClsList.Free; end;
end;

{↓空行を除去して出力するテスト
   TWideStringRecordList版}
procedure TForm1.Button3Click(Sender: TObject);
var
  WideStrRecList: TWideStringRecordList;
  i: Integer;
begin
//  WideStringRecordList.testGetSetText;

  WideStrRecList := TWideStringRecordList.Create; try

  for i := 0 to StringResource1.Lines.Count-1 do
  begin
    WideStrRecList.Add(StringResource1.Lines.Strings[i]);
  end;

  for i := WideStrRecList.Count-1 downto 0 do
  begin
    if WideStrRecList.Items[i] = EmptyStr then
      WideStrRecList.Delete(i);
  end;

  for i := 0 to WideStrRecList.Count-1 do
  begin
    Memo1.Lines.Add(WideStrRecList.Items[i]);
  end;

  finally WideStrRecList.Free; end;
end;



procedure TForm1.Button4Click(Sender: TObject);
begin
  testWideStringRecordList.testGetSetText;
  testStringRecordList.testGetSetText;
  testStringClassList.testTStringClassList;
//  testStringClassList.testGetSetText;
end;

end.