🚀 go-pugleaf

　こんにちは。島田です。

ki6044ty@ex.ecip.osaka-u.ac.jp wrote in article <ki6044ty.96Dec11141123@toyonaka262.ex.ecip.osaka-u.ac.jp>...
>   具体的に言いますと、大学の課題として
> "図書館にあるような本の検索システムをまねたものを作成せよ"
> というのがあたえられています。
> だから、あらかじめ検索される本のリストを(テキスト)ファイルとしてさくせいしておいて
> プログラムを実行したときにそのリストを読み込み、その結果をファイルに出力したいのです。

　ということは、

    入力ファイル  :  書籍のリスト
    出力ファイル  :  検索に引っかかった書籍のリスト

ということでいいのでしょうか。
　書籍のリストの書式はどうなのでしょうか。たとえば、

    ----------------------------
    タイトル 著者名 出版社<改行>
    ----------------------------

などといった形式で永遠と続いているのでしょうか。
　でしたら、

    var
        InFile, OutFile: TextFile;
        Title, Author, Publisher: AnsiString;
                                  (* コンパイル・オプションに依存しないように *)
    begin
        AssignFile(InFile, '入力ファイル名.TXT');
        Reset(InFile);
        AssignFile(OutFile, '出力ファイル名.TXT');
        ReWrite(OutFile);
        while not Eof(InFile) do begin
            Readln(InFile, Title, Author, Publisher);
            if 検索条件に一致 then
                Writeln(OutFile, Title + ' ' + Author + ' ' + Publisher);
        end;
        CloseFile(InFile);
        CloseFile(OutFile);
    end;

　骨格は、こんなところでいいのでしょうか。
　お役に立ちましたら幸いです。


-- 
-----------------------------------------------------------------------
Mail: shimaden@annie.co.jp   Home Page: http://www.annie.co.jp/~shimaden/
Hiroyuki Shimada
島田博幸
-----------------------------------------------------------------------