Здравствуйте! Очень нуждаюсь в помощи знатоков в Делфи! (Стыдно спрашивать, но не некуда деваться – я пока ещё учусь)
В результате титанических усилий мне удалось создать некое подобие того, что должно быть. А именно – пытаюсь выполнить лабораторку «Работа с файлами», но плохо получается. Если можно не смейтесь надо мной.
1. После запуска компилятора почему-то не отображаются заголовки столбцов!
2. Не знаю, как правильно запрограммировать такие кнопки (белеберда какая-то получается):
«Открыть файл» (т.е. ранее созданный файл)
«Вывести в таблицу» (т.е. при нажатии на кнопку, введенные в Edit-ах данные появлялись в строку. Здесь у меня вроде сначала получилось, но потом я понял, что сделал неправильно)
«Добавить запись» (т.е. после заполнения Edit-ов и нажатия на кнопку заполнялась бы следующая строка в таблице)
«Удалить запись»: (при нажатии удалить выделенную! строку со сдвигом нижних строк вверх, к заголовку)
Подскажите, если можно, где я напортачил ?
Прикрепленные файлы
_______________________.rar ( 262.75 килобайт )
Кол-во скачиваний: 269
procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.Cells[0,0]:='Название фильма';
stringgrid1.Cells[1,0]:='Жанр';
stringgrid1.Cells[2,0]:='Страна';
stringgrid1.Cells[3,0]:='Год выпуска';
stringgrid1.Cells[4,0]:='Продолжительность';
StringGrid1.RowCount := 2;
StringGrid1.FixedRows := 1;
// Это для того, чтоб в таблице выделялась целая строка, а не одна ячейка
StringGrid1.Options := StringGrid1.Options + [goRowSelect];
end;
procedure TForm1.Button2Click(Sender: TObject);Всё. Больше ничего здесь быть не должно. Никакой работы с файлами. Задача этого обработчика - добавить данные в таблицу (это то, что написано на кнопке), а не открыть зачем-то еще текстовый файл, а потом его закрыть. Для работы с файлом существуют другие обработчики. Каждый занимается строго своим делом, иначе будет бардак.
begin
with StringGrid1 do
begin
Cells[0, RowCount-FixedRows]:=Edit1.text;
Cells[1, RowCount-FixedRows]:=Edit2.text;
Cells[2, RowCount-FixedRows]:=Edit3.text;
Cells[3, RowCount-FixedRows]:=Edit4.text;
Cells[4, RowCount-FixedRows]:=Edit5.text;
RowCount := RowCount + 1;
end;
end;
Спасибо огромное! Сижу, колдую над проектом...
После выполнения всех инструкций часть проблем устранилась, спасибо!
Люди добрые! Подскажите, как связать компонент ComboBox1 с Edit-ами и таблицей. Т.е. чтобы после выбора из раскрывающегося списка какого-то фильма и заполнения полей в таблице отпечатывалась новая строка с этим фильмом.
Я вроде бы всё это прописал, но идет подчеркивание красной линией и компилятор не запускается.
Прикрепленные файлы
_______________________.rar ( 266.31 килобайт )
Кол-во скачиваний: 259
Не путай сравнение и присваивание. В логических условиях используется именно сравнение, причем компилятор тебе об этом говорит. Убери двоеточие. И еще: не путай латинские и русские символы. У тебя первая буква в
comboBox1.ItemIndex:=0;(обработчик FormCreate) - русская. Это не будет компилироваться. Исправь на латинскую.
Спасибо!