Компоненты OpenDialog и SaveDialog в Лазарус

@swetlitschok · Регистрация: 20.11.2017

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

Помогите пожалуйста понять как пользоваться выше указанными компонентами? Не могу понять каким образом они связываются с записью вычислений в файл, редактированием и сохранением? помогите на примере заданной задачи:

Создать типизированный файл, куда записать n целых чисел.Из исходного файла сформировать массивы четных и нечетных чисел.Определить наибольший отрицательный компонент файла и наименьший положительный.

Можно даже не полностью ее решать, но хотя бы показать как записать числа в файл и сформировать из них массив???

@Puporev · 01.03.2019, 12:38

swetlitschok, Прочитайте что такое типизированные файлы, как они создаются и читаются, тогда поймете(наверное) что эти диалоги Вам совсем не нужны.

@swetlitschok · 01.03.2019, 14:42 **[ТС]**

Лично мне они точно не нужны, но преподаватель думает иначе

@Puporev · 01.03.2019, 15:28

Pascal
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
const n=10;
var a:array[1..n]of real;
    f:file of real;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:string;
begin
 randomize;
 for i:=1 to n do
 a[i]:=10*random;
if SaveDialog1.Execute then
   begin
    s:=SaveDialog1.FileName;//берем имя файла
    assignfile(f,s);//связываем имя переменной с файлом
    rewrite(f);//открываем фвйл для записи//записываем массив в файл
    for i:=1 to n do
    write(f,a[i]);
   end;
 end;
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
    x:real;
begin
  if OpenDialog1.Execute then//открываем нужный файл
   begin
    reset(f); // для чтения
    for i:=0 to filesize(f)-1 do
     begin
       read(f,x); //читаем записи
       Memo1.Lines.Add(formatfloat('0.00',x));//выводим в мемо
     end;
   end;
end;

@swetlitschok · 01.03.2019, 20:30 **[ТС]**

Спасибо! получилось ...

@swetlitschok · 02.03.2019, 15:36 **[ТС]**

Программа все отлично считает (если за комментировать этап сохранения) но при сохранении видимо проблема то ли синтаксиса, то ли не состыковки типа данных не могу понять.. дело в том что мне нужно сохранить в разные файлы массив четных (из Memo2 ) и нечетных чисел ( из Memo3) простым вариантов указав напрямую путь к файлу

@swetlitschok · 02.03.2019, 18:29 **[ТС]**

почему вылетает программа при сохранении?

Добавлено через 2 часа 51 минуту
все! решила задачку!

@Puporev · 02.03.2019, 18:31

Молодец!

Новые блоги и статьи Все статьи Все блоги /
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	01.03.2019, 12:38
	swetlitschok, Прочитайте что такое типизированные файлы, как они создаются и читаются, тогда поймете(наверное) что эти диалоги Вам совсем не нужны. 0

@swetlitschok 53 / 1 / 0 Регистрация: 20.11.2017 Сообщений: 40
	01.03.2019, 14:42 [ТС]
	Лично мне они точно не нужны, но преподаватель думает иначе 0

@swetlitschok 53 / 1 / 0 Регистрация: 20.11.2017 Сообщений: 40
	01.03.2019, 20:30 [ТС]
	Спасибо! получилось ... 0

@swetlitschok 53 / 1 / 0 Регистрация: 20.11.2017 Сообщений: 40
	02.03.2019, 18:29 [ТС]
	почему вылетает программа при сохранении? Добавлено через 2 часа 51 минуту все! решила задачку! 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	02.03.2019, 18:31
	Молодец! 0

Компоненты OpenDialog и SaveDialog в Лазарус

Решение