Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ошибка в программе [D7]

Страницы: 1 2 >
adjeda © (2013-05-09 01:02:00)
Помогите пожалуйста исправить ,только начала изучение Delphi
При нажатии на кнопку вход в Combobox не могу добавить выпадающий список уже зарегистрированных пользователей и вторая проблема,если пароль или логин не верный не выдает сообщения об ошибке.

procedure TForm1.Button1Click(Sender: TObject);
var
dir,login,password : string;
a,i: integer;
dostup: boolean;
begin
dostup:= true;
getdir (0,dir);
dir:=dir+'\Regedit.txt';
Memo1.Lines.LoadFromFile(dir);
a:=Memo1.Lines.Count;
for i:=0 to a-1 do
begin
login:=copy(Memo1.Lines[i],0,pos(':',Memo1.Lines[i])-1);
password:=copy(Memo1.Lines[i],pos(':',Memo1.Lines[i])+1,length(Memo1.Lines[i]));
if (Combobox1.Text=login) And (Edit2.Text=password) then
end;
if dostup = true then
Form4.show;
if dostup = false then
label6.caption('Неверный логин или пароль');
end;

Anatoly Podgoretsky (2013-05-12 11:09:00) [1]
Удалено модератором

(2013-05-12 10:11:00) [2]
Удалено модератором

Германн (2013-05-12 02:51:00) [3]
Удалено модератором

Писатель (2013-05-12 02:39:00) [4]
Удалено модератором

Германн (2013-05-12 02:37:00) [5]
Удалено модератором

(2013-05-12 02:27:00) [6]
Удалено модератором

(2013-05-12 02:23:00) [7]
Удалено модератором

Германн (2013-05-12 02:21:00) [8]
Удалено модератором

Kilkennycat (2013-05-12 02:20:00) [9]
Удалено модератором

Kilkennycat (2013-05-12 02:18:00) [10]
Удалено модератором

(2013-05-12 02:14:00) [11]
Удалено модератором

Германн (2013-05-12 02:07:00) [12]
Удалено модератором

(2013-05-12 01:59:00) [13]
Удалено модератором

Kilkennycat (2013-05-11 23:27:00) [14]

> Писатель (11.05.13 22:38) [14]

сколько же ты зарабатываешь, чтобы:
1) покупать столько версий
2) иметь столько времени для переносов и адаптации своего и сторонних компонент
?

Ega23 (2013-05-11 22:46:00) [15]

> А какая у Вас версия Дельфи, неужели первая?

Нет, 2007 и 2010.

Писатель (2013-05-11 22:38:00) [16]
А какая у Вас версия Дельфи, неужели первая? Думаю что нет :-) А почему более новая, если и на ней можно было писать программы. Согласен не все делают софт для MacOS/iOS, но не у всех и ХЕ4 установлена ;-)

Ega23 (2013-05-11 19:59:00) [17]

> Смена версий лишь закономерный процесс его роста и улучшения.

Выпуск версий. Это да, процесс роста и улучшения.
Но при чём тут смена версий у разработчика?

(2013-05-11 18:03:00) [18]
Удалено модератором

Anatoly Podgoretsky (2013-05-11 10:28:00) [19]

> Писатель (10.05.13 20:32) [8]

А не умрет?

adjeda (2013-05-11 03:22:00) [20]
Kilkennycat спасибо Вам большое ,Вы мне очень помогли!!!!

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »