掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数のコンポーネントに入力した内容をテキストファイル保存に保存するには？ (ID:17315)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じですけど procedure TForm1.Button1Click(Sender: TObject); var i, num1, num2: integer; sl: TStringList; begin num1 := ListBox1.Items.Count; num2 := ListBox2.Items.Count; sl := TStringList.Create; try sl.Add(IntToStr(num1)); for i := 0 to num1-1 do sl.Add(ListBox1.Items[i]); sl.Add(IntToStr(num2)); for i := 0 to num2-1 do sl.Add(ListBox2.Items[i]); sl.Add(Edit1.Text); sl.SaveToFile('c:\test.txt'); finally sl.Free; end; end; procedure TForm1.Button2Click(Sender: TObject); var i, num1, num2: integer; sl: TStringList; begin sl := TStringList.Create; try sl.LoadFromFile('c:\test.txt'); num1 := StrToInt(sl[0]); num2 := StrToInt(sl[num1+1]); for i := 1 to num1 do ListBox1.Items.Add(sl[i]); for i := num1+2 to num1+1+num2 do ListBox2.Items.Add(sl[i]); Edit1.Text := sl[sl.Count-1]; finally sl.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.