ATS-PTプラグイン ver 3.3.2鉄道車両のお値段

二〇一五年皐月廿九日

Lazarusでファイルを開く 2

ファイルストリームを使う方法とかありますけれど、とりあえず古典的な方法で。

前回のコードを改造します。

var
  filename: String;
  f : Textfile;
  line: String;
  num: Integer;
begin
  If OpenDialog1.execute then begin
    filename := OpenDialog1.FileName;
    //showmessage(filename);

    AssignFile(f, filename); // fとファイル名を関連付けます
    Reset(f); // ファイルを読み込み用として扱います
    while not EOF(f) do begin
      // 1行目から順に読み込んでいきます
      // ファイル末に達するとEOF(f)=trueになりループから抜けます
 
      readln(f,line);

      // lineに1行代入されます。
      // 文字列をinteger型に変える場合は以下の方法で
      //num := integer(line);
      //num := StrToInt(line);
    end
    CloseFile(f); // ファイルを閉じる
  end
end;


 

このエントリーをはてなブックマークに追加 Clip to Evernote
iliketrain at 22:10│Comments(0)TrackBack(0)Lazarus 

トラックバックURL

コメントする

名前
 
  絵文字
 
 
ATS-PTプラグイン ver 3.3.2鉄道車両のお値段