![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 25.09.2007
Сообщений: 12
|
![]()
var
mails:TStrings tel,model:integer; .. mails:=TStringList.Create; mails.LoadFromFile('tels.txt'); файл в таком виде: SE:k750 NOKIA:3230 и т.д. нужно чтобы делфи записывал первое слово до разделителя (в данном случае ":") как переменную Tel а второе слово (после разделителя ":") как переменную модель блин вообще не могу сделать ничего..помогите пожалуйста |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Во-первых с какого угара NOKIA или k750 это тип integer? Скорее уж string.
А сохранять можно так. Считываем построчно и в каждой строке пишем tel:=copy(s,1,pos(':',s)-1); delete(s,1,pos(':',s)); model:=s; |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 25.09.2007
Сообщений: 12
|
![]()
ммм
а если дальше мне надо использовать tel и Model например в компонентах idPop : mails.LoadFromFile('tels.txt'); tel:=copy(s,1,pos(':',s)-1); delete(s,1,pos(':',s)); model:=s; begin IdPOP.Username := tels.Strings[tel]; IdPOP.Password := tels.Strings[model]; он всеровно жалуется..говорит переменную ему надо |
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Можно ведь сразу присваивать
IdPOP.Username := tel; IdPOP.Password := model; Я не знаю что выделаете, но можно ведь создать массив IdPOP:array[?...?] of Trecord -ваш тип запись и тогда в цикле читать строки, парсить их и присваивать значения полям. IdPOP[i].Username := tel; IdPOP[i].Password := model; |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 25.09.2007
Сообщений: 12
|
![]()
я просто хочу сделать чтобы прога открывала файл вида:
blablabla:blablabla1 (двоеточие как разделитель двух слов) и подставляла их в IdPOP.Username (сюда первое слово) IdPOP.Password (сюда второе) |
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
А я Вам что предложил? Только переменные-то введите
tel,model:string; |
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 25.09.2007
Сообщений: 12
|
![]()
переменные я то ввел
Я не знаю что выделаете, но можно ведь создать массив IdPOP:array[?...?] of Trecord -ваш тип запись и тогда в цикле читать строки, парсить их и присваивать значения полям. IdPOP[i].Username := tel; IdPOP[i].Password := model; только вот не разобрался как это реализовать( |
![]() |
![]() |
![]() |
#8 |
Банхаммер
Участник клуба
Регистрация: 17.02.2007
Сообщений: 1,754
|
![]()
подробный код я приводил здесь
http://programmersforum.ru/showthrea...326#post200326 Последний раз редактировалось KORN; 06.02.2009 в 15:23. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с текстовым файлом | GazimagomedovM | Помощь студентам | 12 | 17.07.2008 18:24 |
Работа с текстовым файлом | Vasya | Помощь студентам | 28 | 24.01.2008 01:15 |
Работа с текстовым файлом | nataly_ukr | БД в Delphi | 23 | 07.12.2007 22:13 |
Работа с текстовым файлом! | Edimus | Общие вопросы C/C++ | 10 | 19.11.2007 10:31 |