[scroyler]

При написании кодавозникла проблема.

Код:

procedure TForm3.ListBox2Click(Sender: TObject);
var FileName:string;
begin
  FileName:=Edit1.Text+'.txt' ;
Memo1.Lines.LoadFromFile(FileName) ;

end;


procedure TForm3.SpeedButton1Click(Sender: TObject);
var FileName:string;
begin
           FileName:=Edit1.Text+'.txt';
  ListBox2.Items.Add(Edit1.Text) ;
    ListBox2.items.SaveToFile(FileName) ;
    Memo1.lines.SaveToFile(FileName)

end;

Вообщем суть кода такова.
Есть Едит1 (Название) Мемо1 (Содержимое,текст) и кнопка сохранить.
Работает код так.(должен так работать )
Я заполняю Едит(название), В мемо пишу текст. нажимаю сохранить. В листбокс пояляется пункт с Текстом едита(название) при нажатии на появивщийся пункт в листбоксе ,мемо заполняется текстом ( при нажатии сохранить текст мемо сохраняется в тхт файл) с тхт файла.
в коде подчти все работает только он заполняет мемо если в едит пишу название текстовика. подробнее посмотрите в коде думаю поймете

[Snake22]

я так понял название в листбоксе содержит имя файла? тогда:

Код:

procedure TForm3.ListBox2Click(Sender: TObject);
var FileName:string;
begin
  FileName:=ListBox1.Items[ListBox1.ItemIndex]+'.txt' ;
Memo1.Lines.LoadFromFile(FileName) ;

end;

и еще у тебя тут ошибка
ListBox2.items.SaveToFile(FileName) ;
Memo1.lines.SaveToFile(FileName)
получается что Список листбокса,и текст из мемо сохраняются в один файл,и соответственно при сохранении текста Мемо,список с названиями затрётся

[scroyler]

Вооот, спасибо большое!
А еще вопросик)
как сделать так что бы все текстовики сохранялись в одну папку которая создавалась в папке с программой.
и как сделать так что бы при выходе пункты в листбоксе сохранялись?)

[angvelem]

1. При запуске программы получи её путь, добавь каталог куда нужно сохранять. Потом сохраняй всё что нужно в этот путь.
2. Пройдись циклом по пунктам ListBox-а и сохраняй в INI файл.

[Ildar-tsr]

Вот тебе сразу подсказки по посту выше:
1. Используй функцию GetCurrentDir - http://www.delphibasics.ru/GetCurrentDir.php
2. Работать с ини файлами так же просто как и с текстовыми - http://www.delphisources.ru/pages/fa...ini_files.html

[Snake22]

и как сделать так что бы при выходе пункты в листбоксе сохранялись?)

а ты вроде сам писал выше ListBox1.items.savetofile разве это не оно? сразу всё сохраниться.проверять лень)
пропиши это на событие формы OnClose и будет сохраняться при выходе.но всётаки лучше сохранять каждый раз при добавлении нового пункта,потому что вдруг программа завершиться неожиданно,и тогда не сохранится

[Snake22]

Сохранить

Код:

listbox1.Items.SaveToFile('List.txt');

Загрузить

Код:

ListBox1.Items.LoadFromFile('List.txt');

и ни какой возни с ини файлами

[Ildar-tsr]

Сообщение от Snake22

и ни какой возни с ини файлами

Angvelem все правильно написал. Принято такого рода параметры хранить в .ini, а не в .txt

[Snake22]

ну это когда много разнотипных настроек.а тут один листбокс

[scroyler]

Всем спасибо,ваши советы и подсказки очень помогли,сделал именно то,что хотел.