openDialog и saveDialog - Delphi - Ответ 1339957

@Rulezzzz · Регистрация: 31.07.2009

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

В общем есть программа, она по нажании кнопки выводит исходный список студентов, и по нажатию второй кнопки - фильтрует их (выводит те фамилии, которые начинаются с гласной буквы). Мне в эту программу надо вставить сейвдиалог, чтобы он сохранял то, что находится в стринггрид2 (после фильтрации списка) и опендиалог(чтобы он открывал этот же сохраненный список).
Помогите пожалуйста, с диалогами вобще не пойму как работать

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
 
     procedure Button2Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
const n=6;
type
rab=record
fio:string[30];
data:string[5];
mes:string[5];
god:string[10];
kurs:string[5];
grup:string[5];
 
 
end;
var
a:array[1..n] of rab;
i,j:integer;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
with StringGrid1 do
begin
Cells[0,0]:='№';
Cells[1,0]:='ФИО';
Cells[2,0]:='Число';
Cells[3,0]:='Месяц';
Cells[4,0]:='Год поступления';
Cells[5,0]:='Курс';
Cells[6,0]:='Группа';
for i:=1 to n do
Cells[0,i]:=IntToStr(i);
Cells[1,1]:='Одышева И.И.';
Cells[2,1]:='23';
Cells[3,1]:='2';
Cells[4,1]:='2003';
Cells[5,1]:='5';
Cells[6,1]:='BM';
Cells[1,2]:='Албанов П.П.';
Cells[2,2]:='7';
Cells[3,2]:='3';
Cells[4,2]:='95';
Cells[5,2]:='4';
Cells[6,2]:='K';
Cells[1,3]:='Семенов С.С.';
Cells[2,3]:='5';
Cells[3,3]:='12';
Cells[4,3]:='2007';
Cells[5,3]:='1';
Cells[6,3]:='BM';
Cells[1,4]:='Кадышево Н.Т.';
Cells[2,4]:='28';
Cells[2,4]:='2';
Cells[3,4]:='4';
Cells[4,4]:='2000';
Cells[5,4]:='4';
Cells[6,4]:='BM';
Cells[1,5]:='Оладушкин З.З.';
Cells[2,5]:='4';
Cells[3,5]:='3';
Cells[4,5]:='2008';
Cells[5,5]:='2';
Cells[6,5]:='BM';
for i:=1 to 5 do
with a[i] do
begin
fio:=Cells[1,i];
data:=Cells[2,i];
mes:=Cells[3,i];
god:=Cells[4,i];
kurs:=Cells[5,i];
grup:=Cells[6,i];
end;
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
 begin
 
   with StringGrid2 do              // Очистка ячеек StringGrid3
   for i:=0 to n do
    for j:=0 to n do
     Cells[j,i]:=' ';
  with StringGrid2 do
 
   begin
Cells[0,0]:='№';
Cells[1,0]:='ФИО';
Cells[2,0]:='Число';
Cells[3,0]:='Месяц';
Cells[4,0]:='Год поступления';
Cells[5,0]:='Курс';
Cells[6,0]:='Группа';
   j:=0;
    for i:=1 to n do
     with a[i] do
     if (fio[1]='А') or
      (fio[1]='Е') or
      (fio[1]='И')or
      (fio[1]='О')or
      (fio[1]='У')or
      (fio[1]='Э') or
      (fio[1]='Ю') or
      (fio[1]='Я')
      then
      begin
       j:=j+1;
       Cells[0,j]:=IntToStr(j);
       Cells[1,j]:=fio;
 
       Cells[3,j]:=mes;
    Cells[2,j]:=data;
    Cells[4,j]:=god;
    Cells[5,j]:=kurs;
    Cells[6,j]:=grup;
  end;
  end;
 end;
 end.

Вернуться к обсуждению:
openDialog и saveDialog Delphi

Следующий ответ

Другие темы раздела
Delphi Вывод значения переменной на форме https://www.cyberforum.ru/ delphi-beginners/ thread237739.html Здравствуйте! Как можно по другомо вывести вот это значение во дабустим мне нужно в верхнем углу Zoloto:=1; WriteLn(Zoloto); это мой вариат но чета у мя не получилась ничего мо кто поможет!	Delphi массив ПРОГРАММИРОВАНИЕ файлового ввода и вывода 1. Считать исходный массив (прил. 2) из указанного файла. 2. Из исходного массива сформировать рабочий массив. Правила формирования рабочего массива из исходного приведены в вашем варианте. 3. Отсортировать рабочий массив методом прямого выбора. Для четных вариантов организовать сортировку по возрастанию, а для нечетных – по убыванию. 4. Отсортировать...
Delphi Задача по TStringGrid https://www.cyberforum.ru/ delphi-beginners/ thread237705.html Написать проект: "Интернет- Магазин" , содержащий таблицу, в которой пользователь мог бы выбрать товары из имеющихся в наличии и сформировать заказ из них. В первом столбец таблицы должно отображаться наименование товара, во втором - их цена. Третий столбец, заполняемый клиентом, должен содержать количество заказываемого товара данного наименования. В метке, размещенной ниже таблицы, должна...	Delphi Вычислить значение выражения https://www.cyberforum.ru/ delphi-beginners/ thread237669.html помогите плиз
Delphi Методы сортировки прямым выбором и прямым обменом ПРОГРАММИРОВАНИЕ ФАЙЛОВОГО ВВОДА/ВЫВОДА 1. Считать исходный массив (прил. 2) из указанного файла. 2. Из исходного массива сформировать рабочий массив. Правила формирования рабочего массива из исходного приведены в вашем варианте. 3. Отсортировать рабочий массив методом прямого выбора. Для четных вариантов организовать сортировку по возрастанию, а для нечетных – по убыванию. 4. Отсортировать...	Delphi ComObj разбить ячейки. https://www.cyberforum.ru/ delphi-beginners/ thread237625.html в моём excel файле есть ячейка R6C5, данные которой (записанные в строку) необходимо разбить на строки в этой же ячейке. данные разделены точкой с запятой. пример: 123; 4456; 234; 111; разделить ячейку на 4 строки 123; 4456; 234; 111; то есть мне нужно разбить одну ячейку на таблицу строк в этой же ячейке. вопрос: как? procedure TForm1.Button1Click(Sender: TObject);
Delphi Сформировать массив В из номеров столбцов, в которых находятся минимальные элементы каждой строки. https://www.cyberforum.ru/ delphi-beginners/ thread237619.html Лабораторная работа №9 Тема: Динамические массивы. Цель работы: • изучение свойств динамических массивов. • получение практических навыков в работе с динамическими массивами. Составить код программы, которая выполняет следующие действия: 1. Формирование двумерного целочисленного массива (матрицы) размером N х M, значения размеров массива N и M ввести в компоненты Edit1 и Edit2...	Delphi Сортировка по повторяющимся полям в DBGrid Кароч, дана таблица(подключал через ADOConnection, ADOTable,DataSource) в DBGrid. Как можно, при нажатии на столбец, сортировать по убываюнию и возростанию только те поля(строки), в предидущих столбцах которых есть повторяющиеся элементы(так же как и работает сортировка в Windows при нажатии Shift+левая кнопка миши) для наглядности пример: 1 столбец 2 столбец ________2 аб ...
Delphi Нужен самоучитель по делфи 1 У меня на компьютере стоит старенький Делфи 1, некогда с Делфи не работал и для начала хочу найти электронный самоучитель в интернете, но тут всё для Делфи 7, а для Делфи 1 ничего. Если кто-то знает где найти самоучитель для Делфи 1 напишите пожалуйста ссылку. https://www.cyberforum.ru/ delphi-beginners/ thread237498.html	Delphi Список студентов https://www.cyberforum.ru/ delphi-beginners/ thread237495.html Прошу помочь с задачей, я в дельфи еще "зелёный":-\|: упорядочить список студентов заданной группы по среднему баллу и вывести его.
Delphi Нахождение простых, взаимно-простых и парно-простых чисел из указанного диапазона Нужна помощь мне нужно создать программу для нахождение простых,взаимнопростых и парно простых чисел из указанного диапазона. у меня есть уже готовые простые числа как надо и есть два не доделаных варианта т.е. это взаимно простые числа они в языке делфи но там не правельно составлена программа мне нужно что бы из указанного диапазона а в ней просто вводятся 2 числа и и выдаётся ответ являюся...	Delphi Ошибка в компоненте.. Сам не вижу.. https://www.cyberforum.ru/ delphi-beginners/ thread237395.html Начинаю потихоньку изучать ООП.. Но проблема.. Написанный класс совершенно отказывается работать.. Компилятор ругается на: procedure TProekt.SetDefault; var p:tpoint; begin p.X:=1; p.y:=1; fCountOfUgol:=0; //вот на эту-то строчку и ругается.. fmasshtab:=p; fpicture:='/data/new.bmp';

	03.02.2011, 17:23