| ■無料ホームページスペース■ |
|
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.
|
|
■お
得情報盛りだくさん ■高性能レンタルサーバ |