お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"TableやQueryを最後まで読む"






{ キーワードが抜けていました m(_ _)m }

{ テキストファイルでも似たような動作ができますが、一つ大きな違いがあ
  ります。テキストファイルはResetした時点ではレコードが読み込まれて
  いませんが、TTableやTQueryの場合はOpenしただけで1レコードが読み込
  まれています。このため、EOFの判定時期も微妙に違います(サンプル
  ではほとんど同じですが)。複雑な処理を行うとちょっとひっかかる場合が
  ありますのでご注意ください}

{ Tableの内容を StringGridに表示します }
Var
  AixCol, AixRow: Integer;
begin
  Table1.Open;                                { Table を開く }
  Try
    With StringGrid1 Do
    Begin
      RowCount := Table1.RecordCount + 1;     { 行数を設定 }
      ColCount := Table1.FieldCount + 1;      { 桁数を設定 }
                                              { 見出しを設定 }
      For AixCol := 0 To Table1.FieldCount - 1 Do
        Cells[AixCol + 1, 0] := Table1.Fields[AixCol].DisplayLabel;
      AixRow := 0;
      While Not Table1.EOF Do
      Begin
        Inc(AixRow);
        Cells[0, AixRow] := IntToStr(AIxRow); { 行番号を設定 }
                                              { 項目の内容を設定
                                                全ての項目が AsString }
        For AixCol := 0 To Table1.FieldCount - 1 Do
          Cells[AixCol + 1, AixRow] := Table1.Fields[AixCol].AsString;
        Table1.Next;                          { 次のレコードを読む }
      End;
    End;
  Finally
    Table1.Close;                             { Table を閉じる }
  end;
end;

             97/10/26(Sun) 07:02am  BYQ05322 らせん企画の佐々木

Original document by らせん企画      氏 ID:(BYQ05322)


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

Copyright 1996-2002 Delphi Users' Forum