Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
2 из 2 « 1 2
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
1 / 1 / 0
Регистрация: 01.08.2018
Сообщений: 121
Delphi 6-7

Ошибка: неизвестное имя edit2.text

30.08.2019, 11:24. Показов 1853. Ответов 24
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
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
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,mmsystem;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
 
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
    type
masdata = array [1..2] of array [1..10000] of string;
 
function kolbase():integer;
var t:TextFile;
begin
  if FileExists('kolbase.txt')then begin
assign(t, 'kolbase.txt');
reset(t);
readln(t,result);
close(t);
end else Result:=0;
end;
 
 function incdat(kol:integer):masdata; // ââîä áàç ïåðåâîäà
var i:integer;
t:TextFile;
begin
  if  FileExists('rus.txt') and FileExists('eng.txt') =True then begin
 
AssignFile(t, 'rus.txt');
reset(t);
for i:=1 to kol do
  readln(t, result[1][i]);
  CloseFile(t);
  AssignFile(t, 'eng.txt');
reset(t);
for i:=1 to kol do
  readln(t, result[2][i]);
  CloseFile(t);
end else
for i:=1 to kol do begin
Result[1][i]:='';
Result[2][i]:='';
     PlaySound('povrezhdenie.wav', 0, SND_ASYNC );
end;
end;
 
 
 
 
   procedure rus_eng(kolword:integer;clowar:masdata;Sender: TObject);
var
  words:string;
i:integer;
 
q:Boolean;
  begin
 
if kolword=0 then Edit2.Text:='';
words:=edit1.text;
 
for i:=1 to kolword do
if clowar[1][i]=words then begin Edit2.Text:=clowar[2][i];
 q:=false;
  PlaySound('proizvedyon.wav', 0, SND_ASYNC );
  Label3.Caption:='';
 Label4.Caption:='';
   Break;end;// ïîèñê ñîâïâäåíèé â áàçå
if q=true then begin
 Edit2.Text:='';
 PlaySound('net_v_baze.wav', 0, SND_ASYNC );
 Label3.Caption:='îøèáêà. Âàøåãî ñëîâà íåò â áàçå';
 Label4.Caption:='ïðîâåðüòå ïðàâèëüíîñòü íàïèñàíèÿ ñëîâà';
 end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
end
 
 
 
 
 
 
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
words:string;
i,kolword:integer;
clowar:masdata;
q:Boolean;
begin
   clowar:=incdat(kolword);
   q:=True;
kolword:=kolbase;
  if ComboBox1.Text =ComboBox1.Items[0] then
 rus_eng(kolword,clowar,Sender); else
  if ComboBox1.Text = ComboBox1.Items[1] then
begin
 
if kolword=0 then Edit2.Text:='';
clowar:=incdat(kolword);
words:=edit2.text;
 
for i:=1 to kolword do
if clowar[2][i]=words then begin Edit1.Text:=clowar[1][i];
q:=false;
PlaySound('proizvedyon.wav', 0, SND_ASYNC );
Label3.Caption:='';
 Label4.Caption:='';
Break
;end;// ïîèñê ñîâïâäåíèé â áàçå
if q=true then begin
 Edit1.Text:='';
 PlaySound('net_v_baze.wav', 0, SND_ASYNC );
    Label3.Caption:='îøèáêà. Âàøåãî ñëîâà íåò â áàçå';
    Label4.Caption:='ïðîâåðüòå ïðàâèëüíîñòü íàïèñàíèÿ ñëîâà';
 end;
 end
else begin
PlaySound('napravlenie.wav', 0, SND_ASYNC );
Label3.Caption:= 'íå âûáðàíî íàïðàâëåíèå ïåðåâîäà';
label4.Caption:='';
 end;
 end;
 
 
 
 
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if Key=#13 then  Form1.Button1Click(Sender);
end;
где в этом коде ошибка упорно понять не могу . в форме 2 окна для ввода
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 30.08.2019, 11:24
Ответы с готовыми решениями:

Ошибка: 'Edit2.Text' is not a valid integer value
что значит ошибка is not valid integer value project1 project1.exe raised exception class EconvertError with message "Edit2.Text' is not...

Ошибка Неизвестное имя 'ShowMessage'
Unit1.pas(59) : Неизвестное имя 'ShowMessage', вот код Unit Unit1; interface uses System, System.Drawing, System.Windows.Forms; ...

Как сохранить данные из Edit1 в Edit2, чтобы после перезагрузки программы сохраненное в Edit2 не удалялось?
Мир всем и привет ! Как сохранить данные из Edit1 в Edit2, чтобы после перезагрузки программы сохраненное в Edit2 не удалялись ?:cry:...

24
пофигист широкого профиля
4770 / 3207 / 862
Регистрация: 15.07.2013
Сообщений: 18,615
04.09.2019, 02:21
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от андрей богатыре Посмотреть сообщение
у меня вопрос что такое класс и что в этом ужасного
А зачем вам понадобилось программирование? И кто вас вынудил "пересаживаться" с Паскаля на Дельфи?
0
Модератор
 Аватар для D1973
9954 / 6489 / 2461
Регистрация: 21.01.2014
Сообщений: 27,488
Записей в блоге: 3
04.09.2019, 04:44
Цитата Сообщение от андрей богатыре Посмотреть сообщение
что такое класс
Да уж... Это написано на первых страницах любой книги по программированию в среде Дельфи...



Цитата Сообщение от андрей богатыре Посмотреть сообщение
и что в этом ужасного
Я мог бы объяснить это или привести ссылку, где это хорошо описано, но какой смысл, если у Вас нет представления о классах и вообще о концепции ООП...
0
 Аватар для Matan!
1882 / 1016 / 228
Регистрация: 31.05.2013
Сообщений: 6,645
Записей в блоге: 6
04.09.2019, 09:20
Вообще-то непонимание программистами Delphi (начальными) основ ООП - это грех самого Delphi. Ввиду простого формошлёпства исчезает необходимость вообще изучать ООП. Тем более, учебники по Delphi в основном пробегаются по основным конструкциям программирования + несколько стандартных компонентов.
А вообще..
андрей богатыре, есть книжка у Д. Осипова "Delphi. Профессиональное программирование". Рекомендую.
0
1 / 1 / 0
Регистрация: 01.08.2018
Сообщений: 121
06.09.2019, 17:02  [ТС]
у меня была установка,что дельфи примерно= паскаль видимо это не так

Добавлено через 21 минуту
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
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
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204

uses GraphABC;
label restart;
type
masdata = array [1..2] of array [1..10000] of string;
 
procedure soundfaL;
begin 
var Player := new System.Media.SoundPlayer; {Присваиваем переменной "Player" новый экземпляр MediaPlayer'а}
    player.SoundLocation:='false.wav'; {Задаём путь до файла*}
    Player.Play(); {Воспроизводим файл}
 
    end;
    
procedure soundtrue;
begin 
var Player := new System.Media.SoundPlayer; {Присваиваем переменной "Player" новый экземпляр MediaPlayer'а}
    player.SoundLocation:='true.wav'; {Задаём путь до файла*}
    Player.Play(); {Воспроизводим файл}
 
    end;
 
procedure soundbeg;
begin 
var Player := new System.Media.SoundPlayer; {Присваиваем переменной "Player" новый экземпляр MediaPlayer'а}
    player.SoundLocation:='начало.wav'; {Задаём путь до файла*}
    Player.Play(); {Воспроизводим файл}
 
    end;
    
    procedure soundword;
begin 
var Player := new System.Media.SoundPlayer; {Присваиваем переменной "Player" новый экземпляр MediaPlayer'а}
    player.SoundLocation:='слово.wav'; {Задаём путь до файла*}
    Player.Play(); {Воспроизводим файл}
 
    end;
    
     procedure soundre;
begin 
var Player := new System.Media.SoundPlayer; {Присваиваем переменной "Player" новый экземпляр MediaPlayer'а}
    player.SoundLocation:='возврат.wav'; {Задаём путь до файла*}
    Player.Play(); {Воспроизводим файл}
 
    end;
 
function incdat(kol:integer):masdata; // ввод баз перевода
var i:integer;
t:text;
begin
assign(t, 'rus.txt');
reset(t);
for i:=1 to kol do 
  readln(t, result[1][i]);
  close(t);
  assign(t, 'eng.txt');
reset(t);
for i:=1 to kol do 
  readln(t, result[2][i]);
  close(t);
  end;
function kolbase():integer;
var t:text;
begin
assign(t, 'kolbase.txt');
reset(t);
readln(t,result);
close(t);
end; 
procedure rusdobbase(kolword:integer;clowar:masdata);//процедура дбавления данных в базу
var
 t:text;
i:integer;
begin
assign(t, 'kolbase.txt');
rewrite(t);
kolword:=kolword+1;
writeln(t,kolword);//изменение размера базы
close(t);
clearwindow;
textout(0,0,'введите слово для добавления в базу');
readln(clowar[1][kolword]);
assign(t, 'rus.txt'); //слово русское
rewrite(t);
for i:=1 to kolword do writeln(t,clowar[1][i]);
close(t);//перезапись русской части
clearwindow;
textout(0,0,'введите перевод слова');
readln(clowar[2][kolword]);
assign(t, 'eng.txt'); //слово английское
rewrite(t);
for i:=1 to kolword do writeln(t,clowar[2][i]);
close(t);//перезапись английской части
clearwindow;
textout(0,0,'добавление выполнено. Для продожения работы с программой нажмите "ввод"');
readln();
clearwindow;
end;
 
procedure engdobbase(kolword:integer;clowar:masdata);//процедура дбавления данных в базу
var
 t:text;
i:integer;
begin
assign(t, 'kolbase.txt');
rewrite(t);
kolword:=kolword+1;
writeln(t,kolword);//изменение размера базы
close(t);
clearwindow;
textout(0,0,'введите слово для добавления в базу');
readln(clowar[2][kolword]);
assign(t, 'eng.txt'); //слово русское
rewrite(t);
for i:=1 to kolword do writeln(t,clowar[2][i]);
close(t);//перезапись английской части
clearwindow;
textout(0,0,'введите перевод слова');
readln(clowar[1][kolword]);
assign(t, 'rus.txt'); //слово русское
rewrite(t);
for i:=1 to kolword do writeln(t,clowar[1][i]);
close(t);//перезапись английской части
clearwindow;
textout(0,0,'добавление выполнено. Для продожения работы с программой нажмите "ввод"');
readln();
clearwindow;
end;
 
procedure eng_rus(clowar:masdata;kolwords:integer);
var
words:string;
i,y:integer;
q:boolean;
begin
q:=true;
textout(0,0,'введите компьтерное слово для перевода');
soundword;
readln(words);
clearwindow;
y:=0;
for i:=1 to kolwords do 
if clowar[2][i]=words then begin textout(0,y,clowar[1][i]); q:=false;y:=y+34;end; // поиск совпвдений в базе
if q=true then begin
soundfaL; 
textout(0,0,'ничего не найдено!!!проверье правильности написания слова' +words);
textout(0,34,'если вы знаете перевод слова наберите да');
readln(words);
if words='да' then engdobbase(kolwords,clowar);
end else begin soundtrue;
readln();
end;
clearwindow;
end;
 
procedure rus_eng(clowar:masdata;kolword:integer);
var
words:string;
i,y:integer;
q:boolean;
begin
q:=true;
textout(0,0,'введите компьтерное слово для перевода');
soundword;
readln(words);
clearwindow;
y:=0;
for i:=1 to kolword do 
if clowar[1][i]=words then begin textout(0,y,clowar[2][i]); q:=false;y:=y+34;end; // поиск совпвдений в базе
if q=true then begin 
soundFal;
textout(0,0,'ничего не найдено!!!проверье правильности написания слова' +words);
textout(0,34,'если вы знаете перевод слова наберите да');
readln(words);
if words='да' then rusdobbase(kolword,clowar);
end else begin soundtrue; readln();end;
clearwindow;
end;
 
  var
clowar:masdata;
words:string;
i,y,kolword:integer;
q: boolean;
begin
restart:
clearwindow;
q:=true;
kolword:=kolbase;
setwindowsize(1200,500); // установление размеров окна
setwindowcaption('словарь v1.2');
clowar:=incdat(kolword); //передача базы перевода в прогорамму
setfontsize(24);
textout(0,0,'выберите язык начала перервода (русский\английский)');
soundbeg;
readln(words);
if words='русский' then rus_eng(clowar,kolword) else eng_rus(clowar,kolword);
 
clearwindow;
textout(0,0,'вы хотите продолжить работу с программой(да\нет)');
soundre;
readln(words);
if words='да' then goto restart;
closewindow;
end.
этот код я пытался переписать на дельфи и пришлось убрать добавление в базу
0
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,496
06.09.2019, 18:33
андрей богатыре, Delphi это среда разработки с языком Object Pascal и библиотекой VCL (готовые формы, кнопки и прочее).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 06.09.2019, 18:33

Как исправить ошибку too many actual parameters-делфи. Строка Edit6.Text, Edit7.Text)
procedure TForm1.Button1Click(Sender: TObject); begin if RadioButton1.Checked then SendMail(Edit1.Text, 'Test Message', ...

Выводит ошибку неизвестное имя типа "Text" как испрвить?
program Crypt; var key, text, longkey, result : string; i : integer; toto, c : char; F : Text; begin writeln('введите...

Как сделать, чтобы из НД-считалось поле пол в edit1.Text и edit2.Text количество полов?
Здравствуйте, как мне сделать что бы из НД-считала поле пол в edit1.text и edit2.text количество полов ? For i:=0 to...

Ошибка: неизвестное имя TForm1
Вот у меня код, и у меня выдает ошибку, пишет, что неизвестно имя TForm1. Помогите procedure TForm1.Button1Click(Sender: TObject); type...

Ошибка Неизвестное имя 'LoadPicture'
Составил программу,запускай и пишет: Неизвестное имя 'LoadPicture' Вот сама программа program upr1a; uses crt,GraphABC; var...


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

Или воспользуйтесь поиском по форуму:
25
Ответ Создать тему
2 из 2 « 1 2
Новые блоги и статьи
мат медиц модель 30. презентация проекта
anaschu 27.08.2026
хоп хоп хоп хидахоп, а я кладую))
 Как у меня протекала болезнь
zorxor 27.08.2026
Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему
kumehtar 26.08.2026
ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .
[EasyBuilder Pro] Памятка по разработке для панелей Weintek
ФедосеевПавел 26.08.2026
Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам
anaschu 25.08.2026
Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .
Запись в регистр сведений независимо от заполненности табличной части
Maks 25.08.2026
Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .
Ноутбук Альфария
kumehtar 24.08.2026
Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?
 Мастера простых решений
DevAlt 23.08.2026
В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru