|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.09.2007, 15:25 | #1 |
Форумчанин
Регистрация: 28.06.2007
Сообщений: 123
|
Открытие файла,разделение.
Пытаюсь написатьпрограмму,которая бы могла работать с файлами,содержащими списки icq и проли к ним. Уже 2-й день не могу написать цикл,пожалуйста помогите.
Структура файла: номер;нароль номер;пароль .... Цикл должен из файла вынуть в лейбл пароль,а в другой лейбл номер,причем при втором вызове цикла номер с паролем уже должны из следующей строчки файла выниматься,вот что я смог наработать: Код:
Пожалуйста,помогите,прям не знаю что с этим делать(( Вот для большей понятливости выкладываю исходники http://stream.ifolder.ru/3416474 Последний раз редактировалось Kukkk; 20.09.2007 в 15:34. |
20.09.2007, 15:56 | #2 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
приведи пример как это выглядит в файле, и что надо скопировать
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
20.09.2007, 16:00 | #3 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Тут заносится в мемо но переделать не проблема
procedure TForm1.Button1Click(Sender: TObject); VAR f:textfile; s:string; begin assignfile(f,'D:\1.txt'); reset(f); while not EOF(f) do begin readln(f,s); memo1.Lines.Add(copy(s,1,pos(';',s)-1)); memo2.Lines.Add(copy(s,pos(';',s)+1 ,length(s)-pos(';',s))); end; closefile(f); end; |
20.09.2007, 18:53 | #4 |
Форумчанин
Регистрация: 28.06.2007
Сообщений: 123
|
Огромное спасибо! Вы меня спасли,чтоб я без вас делал!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разделение файла | Antik163RUS | Помощь студентам | 9 | 01.07.2008 12:23 |
Разделение txt файла на несколько htm | Tiger16 | Фриланс | 3 | 17.04.2008 22:40 |
Открытие файла | Messir_Leonard | Win Api | 2 | 09.04.2008 19:33 |
Открытие файла | Veiron | Общие вопросы Delphi | 2 | 27.02.2008 03:12 |
Открытие файла | Lexakazanskij | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 01.11.2007 22:27 |