При написании кодавозникла проблема.
Код:
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 (Содержимое,текст) и кнопка сохранить.
Работает код так.(должен так работать
)
Я заполняю Едит(название), В мемо пишу текст. нажимаю сохранить. В листбокс пояляется пункт с Текстом едита(название) при нажатии на появивщийся пункт в листбоксе ,мемо заполняется текстом ( при нажатии сохранить текст мемо сохраняется в тхт файл) с тхт файла.
в коде подчти все работает только он заполняет мемо если в едит пишу название текстовика. подробнее посмотрите в коде думаю поймете