Labelのcaptionの内容をファイルに保存

解決

JILL 2005-07-25 10:01:16 No: 16552

え〜タイトルのとおりです＾＾；
Label.Captionの内容をテキストファイルに保存するには
どうしたらいいのでしょうか？
いろいろ試しているのですがどうもうまくいきません・・・
ちなみにDelphi6 Personalを使っています。

通りすがり 2005-07-25 10:24:23 No: 16553

凄く適当ですけど、簡単にやるなら、、

procedure 〜〜〜〜〜〜〜;
var
   s : string;
   L : TStringList;
begin
  L := TStringList.Create;
  try
    if PromptForFileName(s,'','txt','','',true) then
    begin
      L.Text := Label1.Caption;
      L.SaveToFile(s);
    end;
  finally
    L.Free;
  end;
end;

てな。。。他にも色々方法がありますが、、、手っ取り早く、、、

JILL 2005-07-26 05:37:01 No: 16554

返信ありがとうございます。
一応保存はできたのですが、ダイアログは出したくないので
ダイアログを出さないで保存する方法はないでしょうか？＾＾；

kazu 2005-07-26 07:03:23 No: 16555

if PromptForFileName(s,'','txt','','',true) then
  begin
    L.Text := Label1.Caption;
    L.SaveToFile(s);
  end;

上の「PromptForFileName」がダイアログを表示させる部分だから L.Text := Label1.Caption;
L.SaveToFile('C:\Windows\Label1.txt');//←ファイル名は適当です！
にすればいいだけでは？

JILL 2005-07-26 07:43:18 No: 16556

何度もすいませんが、
L.SaveToFile('〜');
でファイルを保存するときにアプリケーションと同じ場所に
ファイルを保存するにはどのように書いたらいいのでしょうか？
これもどうもうまくできません・・・

JILL 2005-07-26 07:53:12 No: 16557

すいません、自己解決しました＾＾；
答えてくださったかたありがとうございます。