◆説明◆
　ＲＰＧなどのように場面ごと(条件ごと)に異なるメッセージを表示させる
必要のあるような場合、そのメッセージを
「Memo1.Lines.Add('　勇者よ・・・　いよいよ旅立ちの時じゃ・・・');」
　などとコードに埋め込んでしまうと、ソフトの完成サイズが大幅に肥大し
てしまいます。
　コレを避けるためには、メッセージ専用のテキストファイルを１つ用意し
ておいて必要に応じて必要な部分を読み込む、という方法があります。
　このサンプルでは、フォーム上に SpeedButton1･2･3･4、Memo1、Label1
を配置していることを前提とし、押される SpeedButton によって異なるメ
ッセージを Memo1 に表示します。

◆注意◆
　このサンプルを実行して頂く場合は、必ず、下記 "サンプルテキストファ
イル" の内容を「"Sanple.txt" のファイル名」で、前もって同一フォルダ
内に作成しておいて下さい。
　なお、ここにはアップの都合で途中で改行を行っていますが、フォルダ内
に作成される際には、改行を消しておいた方が Memo1 に綺麗に表示されま
す。

◆サンプルテキストファイル◆
#このテキストファイル内容は変更しないで下さい。
Txt1
Pos
　今押されたボタンは SpeedButton1 です。
/F
Txt2
Pos
　このように、１つのテキストファイルの中から、条件によって任意の行〜
行を出力するコトが出来ます。
/F
Txt3
Pos
　ロールプレイングゲームなどでメッセージを表示させるような場合・・・
/F
Txt4
　そのメッセージをコードに埋め込むより、このようにテキストファイルか
ら読み込むようにした方が良いと思います。
/F

◆サンプルコード◆
procedure TForm1.TextLoad(Sender: TObject);
var
   Load: TextFile;
   Txt, data: String;
   Stt: Boolean;
begin
   Txt := Label1.Caption;
   data := '';
   Stt := True;

   try
      AssignFile(Load, 'Sanple.txt');
      Reset(Load);

      while data <> Txt do Readln(Load, data);

      while data <> '/F' do
      begin
         Readln(Load, data);
         if data = 'Pos' then Memo1.Clear else
         begin
            if data <> '/F' then
            begin
               if Stt = True then Memo1.Lines.Add('');
               Memo1.Lines.Add(data);
            end;
         end;

         Stt := False;
      end;
   finally
      CloseFile(Load);
   end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
     Label1.Caption := 'Txt1';
     TextLoad(Sender);
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
     Label1.Caption := 'Txt2';
     TextLoad(Sender);
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
     Label1.Caption := 'Txt3';
     TextLoad(Sender);
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
     Label1.Caption := 'Txt4';
     TextLoad(Sender);
end;

                               　　　　　J-OH!(VEC05267)

Original document by J-OH!　　　　   氏 ID:(VEC05267)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。