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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.05.2010, 11:39   #1
kroŧ
Пользователь
 
Аватар для kroŧ
 
Регистрация: 02.05.2010
Сообщений: 69
Вопрос Чтение строки из файла

подскажите как сделать чтение строки из файла
в файле находится логин;пароль
необходимо чтобы заполняло Edit1.Text логином
Edit2.Text паролем
затем переходило на следущую строку и заполняло уже 2 строкой логин;пароль в Edit1.Text и Edit2.Text
и затем переходило в начало файла строка 1
как это сделать в делфи?
☣☣☣
kroŧ вне форума Ответить с цитированием
Старый 14.05.2010, 11:49   #2
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

я бы порекомендовал использовать StringList.
Код:
var  SL:TStringList;
SL:=TStringList.Create;
SL.LoadFromFile('путь к файлу');
Edit1.Text:=SL[0]//логин в первой строке к примеру
//и т.д
SL.Free;
т.е обращаемся к нему как к массиву строк. Нумерация строк идёт с нуля как в мемо
SERG1980 вне форума Ответить с цитированием
Старый 14.05.2010, 12:17   #3
kroŧ
Пользователь
 
Аватар для kroŧ
 
Регистрация: 02.05.2010
Сообщений: 69
По умолчанию

всё спасибо огромное разобрался
Код:
        S:=TStringList.Create;
       SL:=TStringList.Create;
SL.LoadFromFile('cod.txt');   S.LoadFromFile('cod.txt');
Edit1.Text:=SL[0];//логин в первой строке к примеру
//и т.д
   S.NameValueSeparator:=';';
  Edit3.Text:= S.ValueFromIndex[0];//пароль после логина

SL.Free;   S.Free;
☣☣☣

Последний раз редактировалось kroŧ; 14.05.2010 в 12:23.
kroŧ вне форума Ответить с цитированием
Старый 14.05.2010, 14:31   #4
kroŧ
Пользователь
 
Аватар для kroŧ
 
Регистрация: 02.05.2010
Сообщений: 69
По умолчанию

ещё вопрос как сделать чтение следующей строки через через 60 секунд
☣☣☣
kroŧ вне форума Ответить с цитированием
Старый 14.05.2010, 15:42   #5
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Код:
for i:=0 to SL.Count-1 do
begin
 s:=SL[i];
 Application.ProcessMessages;
 sleep(60000);//в миллисекундах
......
как то так
или через таймер
SERG1980 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Чтение строки с пробелами phpcreator Помощь студентам 5 15.10.2009 18:13
Чтение функции из строки? StakanpORTvejna Общие вопросы Delphi 4 28.04.2009 17:21
Чтение строки limon Помощь студентам 3 08.09.2008 14:36
Чтение файла [Smarik] Помощь студентам 8 28.04.2008 22:15
Чтение строки... prizrak1390 Общие вопросы Delphi 2 28.02.2008 11:18