Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 31.07.2009
Сообщений: 33
1

openDialog и saveDialog

03.02.2011, 17:23. Показов 1003. Ответов 1
Метки нет (Все метки)

В общем есть программа, она по нажании кнопки выводит исходный список студентов, и по нажатию второй кнопки - фильтрует их (выводит те фамилии, которые начинаются с гласной буквы). Мне в эту программу надо вставить сейвдиалог, чтобы он сохранял то, что находится в стринггрид2 (после фильтрации списка) и опендиалог(чтобы он открывал этот же сохраненный список).
Помогите пожалуйста, с диалогами вобще не пойму как работать
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
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.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.02.2011, 17:23
Ответы с готовыми решениями:

OpenDialog и SaveDialog
Здравствуйте. Имеется такой код: if SaveDialog1.Execute then FName := SaveDialog1.FileName; if...

OpenDialog SaveDialog
Всем присуствующим низкий поклон и мои приветствия. Я что-то увлёкся Дельфи и самостоятельно пишу...

Opendialog и savedialog
При нажатии на спидбаттон загружается файл, я хочу что при нажатии на кнопку сохранялся файл в...

SaveDialog и OpenDialog в StringGrid.
В одной программе SaveDialog в другой OpenDialog. Первая должна сохранять данные из StringGrid в...

1
Mobile Software Engineer
Эксперт С++
5364 / 1583 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
03.02.2011, 19:33 2
в 4ем проблема?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.02.2011, 19:33

Исчезает OpenDialog и SaveDialog
У меня в форме стоят OpenDialog и SaveDialog, но почему-то когда запускаю программу они исчезают....

Заменить системный OpenDialog, SaveDialog
Мне надо сделать программу для интернет салона, и как мне заменить системный openDialog,...

Работа с текстовыми файлами, компоненты OpenDialog и SaveDialog
Помогите, пожалуйста! Нужно написать программу: Задача: Сформировать список лиц, записавшихся...

Считать двумерный массив из текстового файла с использованием компонент OpenDialog и Savedialog
Необходимо размерность массива и сам массив считать из текстового файла.При открытии и сохранении...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru