■無料ホームページスペース■

asdファイルを作る


asdファイルは、

ページ1の1行目#1#1ページ1の2行目#1#1ページ1の3行目#2#2ページ1の名前
ページ2の1行目#1#1ページ2の2行目#1#1ページ2の3行目#2#2ページ2の名前
ページ3の1行目#1#1ページ3の2行目#1#1ページ3の3行目#2#2ページ3の名前
という形式になっているファイルです。
一行で1ページ分のデータを持ちます。
本文の改行を#1#1とし,
ページ名は、データの末尾に #2#2ページ名 を加えます。
これを作成する例を示します。

//Create_asd_file
var
  SL : TStringList;
  FName, S: String;
  i, j : integer;
begin
  SL := TStringList.Create;
  try

    //10ページ作る
    for i:= 1 to 10 do
    begin

      S:= '';

      //本文 ( 10行 )
      for j:= 1 to 10 do
        S:= S +IntToStr(i) +' - ' +IntToStr(j) +#1#1;

      //名前
      SL.Add( S +#2#2 +'Page : ' +IntToStr(i) );
    end;

    FName:= AppPath +'test_asdFile.asd';
    SL.SaveToFile( FName );
    FileOpenA( FName );

  finally
    SL.Free;
  end;

end.


[Home] [ (´д`)Edit3Menu]
■お 得情報盛りだくさん
■高性能レンタルサーバ