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

解決

JILL  2005-07-25 01:01:16  No: 16552  IP: 192.*.*.*

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

編集 削除
通りすがり  2005-07-25 01:24:23  No: 16553  IP: 192.*.*.*

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

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-25 20:37:01  No: 16554  IP: 192.*.*.*

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

編集 削除
kazu  2005-07-25 22:03:23  No: 16555  IP: 192.*.*.*

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-25 22:43:18  No: 16556  IP: 192.*.*.*

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

編集 削除
JILL  2005-07-25 22:53:12  No: 16557  IP: 192.*.*.*

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

編集 削除