Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2009, 00:24   #11
street-walker
Пользователь
 
Регистрация: 20.04.2009
Сообщений: 65
По умолчанию

Цитата:
Сообщение от spamer Посмотреть сообщение
При регистрации пользователя, просто записуйте в файл Логин и Пас. При в ходе в программу считывайте эти же данные из файла и проверяйте с теми что ввел пользователь.

P.S. Я бы лучше использовал ini файлы.
[QUOTE=Хитрец;245208]Чисто из жалости от такого убогого кода исправил твои ошибки извини за прямоту, но так не пишут программы


procedure TForm1.Button1Click(Sender: TObject);
begin

log:=Edit1.Text;
pas:=Edit2.Text;

AssignFile(f,'c:\Persons.txt');
if fileexists('c:\Persons.txt') then
begin
append(f);
WriteLn(f,log+' '+pas);
closefile(f);
end
else
begin
Rewrite(f); //создание файла, если он там есть, то перезаписываеться (старый удаляеться, новый пустой появляеться)
//Reset(f); //просто открываем файл для редактирования
WriteLn(f,log+' '+pas); //записываем строку в файл с переводом курсора на новую строку
CloseFile(f); //закрываем файл
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var Result :boolean;
begin
log:=Edit1.Text;
pas:=Edit2.Text;
Result := false;
AssignFile(f,'c:\Persons.txt');
reset(f);
while not eof(f) do
begin
readln(f,person);
if person=(log+' '+pas) then
begin
result := true;
showmessage('Есть такой пользователь');
exit;
end
end;
if Result = false then showmessage('Нет такого пользователя');
closefile(f);
end;

Скопируй все и вставь, то у тебя там ошибки с пробелами! Да и диск C на Е измени обратно, то я переставил для себя


Спасибо большое,это мое первое творение,справедливая критика
street-walker вне форума Ответить с цитированием
Старый 21.04.2009, 00:25   #12
Хитрец
Пользователь
 
Регистрация: 26.01.2009
Сообщений: 48
По умолчанию

Ну и на всякий разбор полетов что не так сделал:

procedure TForm1.Button1Click(Sender: TObject);
begin

log:=Edit1.Text;
pas:=Edit2.Text;
AssignFile(f,'E:\Persons.txt');
if fileexists('E:\Persons.txt') then begin
append(f);
WriteLn(f,log+' '+pas);
closefile(f);
end
else begin
Rewrite(f);
WriteLn(f,log,'',pas); <---- ТУТ ПЕРВАЯ ОШИБКА в начале ты записывал как Log+' '+pas, теперь же пишишь через ","
CloseFile(f);

end;

end;



procedure TForm1.Button2Click(Sender: TObject);
begin
log:=Edit1.Text;
pas:=Edit2.Text;
AssignFile(f,'E:\Persons.txt');
reset(f);
while not eof(f) do
begin
readln(f,person);
if person=(log+' '+pas) then
showmessage('есть такой пользователь')
else
showmessage('нет такого пользователя')
closefile(f); <-------- вторая ошибка ЗАКРЫВАЕШЬ ФАИЛ А ЦИКЛ продолжаешь, плюс ко всему на каждой строчке делаешь проверку и будет выводится сообщение что нет такого пользователя. Если сторок 10 то десять раз увидишь НЕТ ТАКОГО ПОЛЬЗОВАТЕЛЯ.

end;
end;
end.
Хитрец вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Регистрация классов. Nytlec Помощь студентам 1 18.01.2009 14:05
Регистрация limon PHP 1 17.10.2008 10:33
Регистрация БД Gladiator БД в Delphi 1 05.06.2008 00:09
Регистрация и авторизация zorro Общие вопросы Delphi 10 09.04.2007 01:14