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

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

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

как мне считать из файла логин@пароль

NCz © (2006-02-11 12:01:00)
как мне считать из файла логин@пароль
я записываю строку в S а как мне считать(логин) до знака @ ,а потом пароль
while not eof(fn) do
readln(fn,s);
For i:=1 to length(s) Do Begin
а дальше чет не пойму знаю надо посимвольно считывать а как?

TUser (2006-02-11 14:01:00) [1]
http://www.delphimaster.ru/cgi-bin/forum.pl?n=18&id=1139642458

TUser (2006-02-11 14:01:00) [2]
http://www.delphimaster.ru/cgi-bin/forum.pl?n=18&id=1139642458

palva (2006-02-11 12:15:00) [3]
Наверно, как нибудь так:
if s[i] = '@' then do begin lgn = copy(s, 1, i-1) psw = copy(s, i+1, Length(s) - i) break; end

Loginov Dmitry (2006-02-11 12:14:00) [4]
Примерно так:

Login := Copy(S, 1, Pos('@', S) - 1); Passw := Copy(S, Pos('@', S) + 1, Length(S) - Pos('@', S));

Наверх

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