Всех с Новым Годом!!! нужно написать программку

@Ivan93 · Регистрация: 18.12.2011

Студворк — интернет-сервис помощи студентам

Всем привет нужно написать следующию программу.
Имеется таблица в которую с помощью других таблиц заносятся данные
и сортируются по названию рейса(там типо задача с самалетами связана)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm4.btn1Click(Sender: TObject);
begin
 
assignfile(rf,'rf'); reset(rf);
 i:=1;
 
 While not eof(rf) do begin
 read(rf,x);
  if edt1.text=x.marka  then
 begin
strngrd1.Cells[0,i]:=x.Fam;
strngrd1.Cells[1,i]:=x.im;
strngrd1.Cells[2,i]:=x.Otch;
strngrd1.Cells[3,i]:=inttostr(x.kol_vo_veshei);
strngrd1.Cells[4,i]:=floattostr(x.ves);
i:=i+1;
 end;
end;
end;
procedure TForm4.FormActivate(Sender: TObject);
begin
strngrd1.cells[0,0]:='Фамилия';
strngrd1.cells[1,0]:='Имя';
strngrd1.cells[2,0]:='Отчество';
strngrd1.cells[3,0]:='Кол-во вещей';
strngrd1.cells[4,0]:='Вес';

Надо сделать так чтоб среди оставшихся данных остались только те строки у которых в столбце вес стоит цифра больше 3. Помогите пожалуйста)

Добавлено через 2 часа 17 минут
Подскажите пожалуйста

@Alex_pac · 08.01.2012, 19:26

http://www.delphitricks.com/so... ggrid.html

Новые блоги и статьи Все статьи Все блоги /
И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.	Новая зверюга volvo 07.11.2025 Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .	Инференс ML моделей в Java: TensorFlow, DL4J и DJL Javaican 05.11.2025 Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .	Mapped types (отображённые типы) в TypeScript Reangularity 03.11.2025 Mapped types работают как конвейер - берут существующую структуру и производят новую по заданным правилам. Меняют модификаторы свойств, трансформируют значения, фильтруют ключи. Один раз описал. . .
Адаптивная случайность в Unity: динамические вероятности для улучшения игрового дизайна GameUnited 02.11.2025 Мой знакомый геймдизайнер потерял двадцать процентов активной аудитории за неделю. А виновником оказался обычный генератор псевдослучайных чисел. Казалось бы - добавил в карточную игру случайное. . .	Протоколы в Python py-thonny 31.10.2025 Традиционная утиная типизация работает просто: попробовал вызвать метод, получилось - отлично, не получилось - упал с ошибкой в рантайме. Протоколы добавляют сюда проверку на этапе статического. . .	C++26: Read-copy-update (RCU) bytestream 30.10.2025 Прошло почти двадцать лет с тех пор, как производители процессоров отказались от гонки мегагерц и перешли на многоядерность. И знаете что? Мы до сих пор спотыкаемся о те же грабли. Каждый раз, когда. . .	Изображения webp на старых x32 ОС Windows XP и Windows 7 Argus19 30.10.2025 Изображения webp на старых x32 ОС Windows XP и Windows 7 Чтобы решить задачу, использовал интернет: поисковики Google и Yandex, а также подсказки Deep Seek. Как оказалось, чтобы создать. . .	Passkey в ASP.NET Core identity stackOverflow 29.10.2025 Пароли мертвы. Нет, серьезно - я повторяю это уже лет пять, но теперь впервые за это время чувствую, что это не просто красивые слова. В . NET 10 команда Microsoft внедрила поддержку Passkey прямо в. . .

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	08.01.2012, 19:26
	http://www.delphitricks.com/so... ggrid.html 0

Опции темы