Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Внизкак мне считать из файла логин@пароль Найти похожие ветки
← →
NCz (2006-02-11 12:01) [0]как мне считать из файла логин@пароль
я записываю строку в S а как мне считать(логин) до знака @ ,а потом пароль
while not eof(fn) do
readln(fn,s);
For i:=1 to length(s) Do Begin
а дальше чет не пойму знаю надо посимвольно считывать а как?
← →
Loginov Dmitry © (2006-02-11 12:14) [1]Примерно так:
Login := Copy(S, 1, Pos("@", S) - 1);
Passw := Copy(S, Pos("@", S) + 1, Length(S) - Pos("@", S));
← →
palva © (2006-02-11 12:15) [2]Наверно, как нибудь так:
if s[i] = "@" then do begin
lgn = copy(s, 1, i-1)
psw = copy(s, i+1, Length(s) - i)
break;
end
← →
TUser © (2006-02-11 14:01) [3]http://delphimaster.net/view/2-1139642458/
← →
TUser © (2006-02-11 14:01) [4]http://delphimaster.net/view/2-1139642458/
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.036 c