掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TStringSteamのデータを表示・加工したいのですが... (ID：13847)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自己レスです。 やっと原因がわかりました。 うまく動かないので、いろいろとプログラムの動作を確認しているとき、 procedure Button1Click(Sender: TObject); をtypeのところからprivateのところに移動したのが原因のようです。 あと、次の場合はどうすればよいのでしょうか？ tmp_dataまたはdataをグローバル変数にするしかないのでしょうか？ Freeでメモリを開放するとエラーになりますし、Assiginを使ってもうまくいきません。 function TForm1.comb_search_data():TStringList; var tmp_data:TStringList; begin tmp_data := TStringList.Create; try tmp_data.Add('g='+ g); tmp_data.Add('k=' + k); finally Result := tmp_data; //Result.Assign(tmp_data); これにしてもエラー // tmp_data.Free; こうしてもエラー //両方コメントにするとエラーにならないがメモリを占有したまま end end; procedure TForm1.Button1Click(Sender: TObject); var data : TStringList; begin data := TStringList.Create; data := comb_search_data(); post_http(data,'1'); end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.