writelnの使い方について

解決

桜子 2004-04-27 01:21:53 No: 8683

どなたかご指導宜しくお願いします。
タブを含む文字列をファイルに出力しようと思うのですが、
タブが半角空白に置換されてしまいます。

String buf = 'test' + Chr(9) + 'test2';
writeln(TextFile,buf);

Chr(9)または#9を文字列の区切り文字としたいのですができません。
宜しくお願いします。

スタテツ 2004-04-27 02:30:53 No: 8684

こんにちわです。
あれっとおもってテストしましたが
ちゃんとタブ（#9）で保存されてました。
Delphi7 WinXp

procedure TForm1.Button1Click(Sender: TObject);
var
  F:TextFile;
  S:string;
begin
  AssignFile(F,'test.txt');
  Rewrite(F);
  S:='test' + Chr(9) + 'test2';
  WriteLn(F,S);
  CloseFile(F);
end;

桜子 2004-04-27 02:40:54 No: 8685

スタテツさんレスありがとうございます。

やっぱりそうですよね〜^^;;
もっかいソースを見直します。

次回もご指導宜しくお願いします。