![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
![]()
Здравствуйте форумчане.
Что то я не много не могу понять как вот этот кусок кода считать не из тестового файла а из Tmemo assignfile(f, 'c:\123.txt'); reset(f); z:=z+1; for i:=1 to z do readln(f,s); n:=copy(s,1, pos('/',s)-1); delete(s, 1, pos('/',s)); p:=copy(s,1, pos('/',s)-1); delete(s, 1, pos('/',s)); Заранее благодарю...
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
Последний раз редактировалось Stanislav; 05.01.2008 в 23:09. |
![]() |
![]() |
![]() |
#2 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]()
memo1.Lines[i] //где i - номер строки.
или memo1.Text
Life is too short, play more...
Как правильно задавать вопросы |
![]() |
![]() |
![]() |
#3 |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
![]()
Спасибо конечно мне это понятно но как быть дальше я пробывал так:
Код:
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
Последний раз редактировалось Stanislav; 05.01.2008 в 23:52. |
![]() |
![]() |
![]() |
#4 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]() Код:
Life is too short, play more...
Как правильно задавать вопросы |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 486
|
![]()
Или делать как в предыдущем сообщении, или (если хочется всё читать "вручную") изменить код так, чтобы строки читались в цикле:
Код:
|
![]() |
![]() |
![]() |
#6 | |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
![]() Цитата:
1) Z - это номер строки которую считвыаем 2) Почему без begin? что то я не понял если внимательно посмотреть? 3) Где она иницилизируеться? это не важно, но если интересно в начале проекта и обнуляеться там же тип integer; 4) То что последния строка обрабатываеться это то же не важно поскольку необходимо было проверить правильность данного куска кода Надеюсь теперь по понятнее... спасибо за ответы p.s Я уже разобралься спасибо
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
|
|
![]() |
![]() |
![]() |
#7 |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
![]()
Тут назрел еще один вопрос по memo:
Суть в следующем в memo записана следующая строка 1 2 3 4 5 6 7 как написать цикл что б он преобразовал ее к виду 1 2 3 4 5 6 7 у меня есть небольшая мысль не назнаю как продолжить : скажем заносим эту строку в переменную s типа string а далее делаем так: while s <> ' ' do // а вот что дальше? // может readln; подскажите пожайлусто...
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
Последний раз редактировалось Stanislav; 07.01.2008 в 00:38. |
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 486
|
![]()
Можно попробовать так:
Код:
|
![]() |
![]() |
![]() |
#9 |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
![]()
Спасибо вы очень сильно выручили все работает....
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переведите кусок кода на понятный язык НЕпрограммисту | grenkoff | Помощь студентам | 4 | 11.07.2008 17:33 |
помогите понять кусок кода | Arteom | БД в Delphi | 7 | 31.08.2007 08:51 |
Есть кусок кода | komarevsky | Общие вопросы Delphi | 7 | 19.07.2007 17:43 |
загрузка данных из тестового файла | gribog | БД в Delphi | 16 | 19.07.2007 15:06 |
как считать данные с Txt файла? | Alar | Общие вопросы Delphi | 0 | 29.10.2006 20:12 |