| Код |
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
//заполняем строками
for i := 0 to 6 do
CB.Items.Add('Строка ' + IntToStr(i))
end;
//показываем на экран
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(CB.Text);
end;
//сохраняем выбранную строку в файл
procedure TForm1.Button2Click(Sender: TObject);
var
f: TextFile;
begin
AssignFile(f, 'my_file.txt'); //Связь дескриптора и конкретного файла на компьютере
try //пробуем открыть файл
Append(f); //если файл существует - открываем его для записи
except
ReWrite(f) //если файл не существует - создаем его и - открываем для записи
end;
Writeln(f, CB.Text); // добавляем строку в файл
Closefile(f); //закрывам файл
//а так можно все строки сохранить сразу из ComboBox
//CB.Items.SaveToFile('my_file.txt');
//У большинства компонентов, связанных с тестовой информацией есть метод SaveToFile
end;
|
|