помогите новичку (работа с ListBox)

← →
miracle_fox © (2003-12-29 16:51) [0]

здравствуйте, форумчане! вот уже второй день изучаю дэльфю, ясное дело накопились некоторые вопросы... вот например поставил я себе на форму ListBox1. очень нужно, чтобы при запуске моего приложения ListBox1 автоматически заполнялся из файла (например list.txt). как это сделать? и ещё вот: как сделать так, чтобы иметь возможность заполнять из дельфи мой файл list.txt при чём не отделной программой, а, например, чтобы при нажатии кнопочки
Button1, выскакивало отдельное окошко с label "введите новую строку" и edit"ом, куда вводить ... если знаете чем помочь - напишите в этот топик сообщение. заранее спасибо.

← →
Ru © (2003-12-29 17:07) [1]

вроде: ListBox1.Items.LoadFromFile("...");

а второе: InputBox или InputDlg - не помню

← →
Agent13 (2003-12-29 17:08) [2]

1.В Object Inspector на вкладке Events дважды щёлкаешь на OnCreate и пишешь:
ListBox1.Items.LoadFromFile("list.txt");

2. Создаёшь форму Form2 с лейблом и эдитом. В основной форме дважды щёлкаешь на свою кнопку и пишешь:

Form2.ShowModal;
Listbox1.Items.Add(Form2.Edit1.Text);

← →
miracle_fox © (2003-12-29 17:11) [3]

а можно ли поточнее ... ? для меня это пока тёмный леззз :)

← →
Palladin © (2003-12-29 17:13) [4]

темный лезз да осветится книгами о паскале и делфи...

← →
Agent13 (2003-12-29 17:14) [5]

2Ru
>а второе: InputBox или InputDlg - не помню

Точно, так полегче будет: InputBox("ввод", "введите число", "");

2miracle_fox

Куда уж ещё точнее?

← →
miracle_fox © (2003-12-29 17:15) [6]

мудрость мудростью, но не за 2 же дня! :))) кст, книгу какую посоветуете, люде :) ??? (на правах соцопроса)

← →
KSergey © (2003-12-29 17:16) [7]

Любую! Серьезно.

← →
Ru © (2003-12-29 17:26) [8]

>miracle_fox © (29.12.03 17:11) [3]

если есть толстый интернет, то, пока ума разума буш набираться, советую сайты:
http://podgoretsky.pri.ee/
http://www.delphiplus.org/ - можно сказать два равнозначных сайта, но на первом можно найти кое-какие тонкости, которые отсутствуют на втором. В основном содержимое этих сайтов это книги по дельфи и не только.
http://www.delphiworld.narod.ru/ - 3000 статей на различные тематики программирования в дельфи
http://www.delphikingdom.com/ - хороший сборник полезных статей
http://emanual.ru/ - книги
http://delphibase.endimus.com/
http://atrussk.ru/delphi/ - справочник по функциям API

для начала хватит.

PS ещё можно посмотреть куда идти тут:
http://deep.webm.ru/forum/reply.php?num=3.3&id=59799

← →
miracle_fox © (2003-12-29 17:45) [9]

да. вы конечно ребята хорошие, но вижу, что занятые .... и всё же, если кто-то напишет код - буду благодарен. могу даже с новым годом поздравить (для мазахистов - утром первого :))

← →
Agent13 (2003-12-29 17:55) [10]

Вот полностью код модуля, которорый тебе нужен. Разбирайся:

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin ListBox1.Items.LoadFromFile("list.txt"); end; procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Add(InputBox("input", "type a string", "")); end; end.

>miracle_fox © (29.12.03 17:45) [9]

00. кладёшь на форму листбокс
01. обзываешь его
02. кликаешь левой клавишей мыши на форме
03. нажимаешь F11
04. вкладка event ищи событие OnShow
05. дважды кликаешь левой клавишей мыши
06. в создавшемся обработчике пишешь код: ListBox1.Items.LoadFromFile("list.txt"); вместо ListBox1 нужно прописать указаное тобою имя
07. нажимаешь F12
08. кладёшь на форму кнопку (какую нравится)
09. дважды кликаешь левой клавишей мыши на кнопку и пишешь код: ListBox1.Items.Add(InputBox("ввод", "введите число", ""));

если я не ошибся то так.

спасибо огромное. тему можно считать закрытой.
Agent13: это ты что клюнул... на поздравление с новым годом? шучу:)

← →
Agent13 (2003-12-29 18:00) [13]

Да не на поздравление я клюнул, просто я человек не занятой :)

всех с наступающим! в новом году не будте суеверны. просто не переходите дорогу чёрным кошкам и бабам с пустым ведром (к сожалению выражение перешло к вам по средствам испорченного телефона:)

помогите новичку (работа с ListBox) Найти похожие ветки