|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.01.2008, 22:27 | #1 |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
кусок кода считать не из тестового файла а из Tmemo
Здравствуйте форумчане.
Что то я не много не могу понять как вот этот кусок кода считать не из тестового файла а из 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. |
05.01.2008, 22:29 | #2 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
memo1.Lines[i] //где i - номер строки.
или memo1.Text
Life is too short, play more...
Как правильно задавать вопросы |
05.01.2008, 23:46 | #3 |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
Спасибо конечно мне это понятно но как быть дальше я пробывал так:
Код:
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
Последний раз редактировалось Stanislav; 05.01.2008 в 23:52. |
06.01.2008, 13:20 | #4 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Код:
Life is too short, play more...
Как правильно задавать вопросы |
06.01.2008, 15:00 | #5 |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 486
|
Или делать как в предыдущем сообщении, или (если хочется всё читать "вручную") изменить код так, чтобы строки читались в цикле:
Код:
|
06.01.2008, 17:27 | #6 | |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
Цитата:
1) Z - это номер строки которую считвыаем 2) Почему без begin? что то я не понял если внимательно посмотреть? 3) Где она иницилизируеться? это не важно, но если интересно в начале проекта и обнуляеться там же тип integer; 4) То что последния строка обрабатываеться это то же не важно поскольку необходимо было проверить правильность данного куска кода Надеюсь теперь по понятнее... спасибо за ответы p.s Я уже разобралься спасибо
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
|
|
07.01.2008, 00:34 | #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. |
07.01.2008, 12:00 | #8 |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 486
|
Можно попробовать так:
Код:
|
07.01.2008, 22:12 | #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 |