Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

Модерирует : ShIvADeSt

ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
greenpc
ругается
Код:
then  

 
на [Error] Unit1.pas(40): Incompatible types: 'String' and 'Integer'

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 15:24 03-07-2006
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OOD
а если подумать
if Length(sl[0])>LENGTH(s)

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 15:50 03-07-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
greenpc
ВСЕМ ПРИОГРОМНЕЙШЕЕ СПАСИБО, ВЫ МНЕ ОЧЕНЬ, ОЧЕНЬ, ОЧЕНЬ ПОМОГЛИ
Ещё раз спасибо всё работает
 
Но эта процедура только для одной строки а как быть чтобы в другой строке производилась запись значения из TEdit?
т.е. не для первой строки , а для любой тругой
 
Допустим если нужно вносить параметры в 5 строчку 10 символ?

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 16:18 03-07-2006 | Исправлено: OOD, 19:56 03-07-2006
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OOD

Цитата:
Допустим если нужно вносить параметры в 5 строчку 10 символ?

 
странные желания продолжаются?... ;-)))
 
И, хоть ты так и не рассказал, что тебе нужно... (может, это лабораторная?)
 
Ладно, если я тебя правильно понял, ты хочешь, чтобы в одном Tedit был символ, который ты хочешь заменить, в другом TEdit - был номер строки, в третьем - номер символа в этой строке, который нужно заменить?
 
ну сейчас лень запускать дельфю, но, грубо говоря это будет так: Подробнее...
 
надеюсь, что помог в решении ваших странных задач...  

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 22:59 03-07-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
Спасибо нет это не лабораторная пишу просто бота , но тяжко переключиться с других языков на делфи хелп во многом не рулит Задачи могут показаться странными, но только они могут помочь в данной ситации Вы очень , очень помогли!

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 23:58 03-07-2006
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OOD

Цитата:
Спасибо нет это не лабораторная пишу просто бота , но тяжко переключиться с других языков на делфи  
 
понятно. Заметно, что Delphi для вас не родной...  
всё получилось? Больше вопрос нет?...
 
P.S.А вы прямо с обеда и до полуночи бьётесь с этой задачёй... ;-))) Уважаю ваше упорство ;-)) я лично - иду спать ;-))
 





:Moderator: прекращаем вести личную беседу в топике, для этих целей ПМ.

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 00:10 04-07-2006 | Исправлено: ShIvADeSt, 01:53 04-07-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
Нет действительно большое спасибо , чтобы я делал без ру - боарда не знаю...
бью уже третьи сутки не сплю и уже могу похвастаться Вашими и моими трудами ,а именно активация и запуск прогаммы по смс с мобильного телефона всех операторов умс, возможность управления программой через смс , отчеты на этот телефон, лог файлы, подтверждения действия,бот для онлайн игры и многое другое!
Принцип вообще какой посылаю смс , обработчие её смотрит в сохраняет в тхт файл, дальше нужно искать в тхт файле это самое действие и его обрабатывать другим обработчиком.. пот по этому Вас и достал тут с ТСтрингами ТЕдитами и всем прочим , Вы уж извенити, но сделали очень полезное и нужное дело  

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 00:50 04-07-2006
ShadowMen

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Установил KAV 6. Теперь при запуске Дельфя частенько ругается на испорченый файл регистрации. Отключаешь антиыирусную защиту - запускается нормально.

Всего записей: 262 | Зарегистр. 18-02-2002 | Отправлено: 07:54 04-07-2006
RostY



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ShadowMen
 

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 09:19 04-07-2006
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
нашел ошибку в Вашем коде
пример: строчка длинной 10 символов, вставка: 2 символа,Позиция: 5
добавление идет в конец строки.
Подробнее...

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 09:34 04-07-2006 | Исправлено: greenpc, 09:52 04-07-2006
Larry



Moderator
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите плиз, уже голова опухла.
 
Есть типизированный файл (f: file of char), после открытия OpenDialog нужно перебрать файл на наличие некоторых символов. Выполняю следующее:

Цитата:
AssignFile(f, Open_.FileName);
   Reset(f);
    for i:=0 to FileSize(f)-4 do begin
     Seek(f, i);
     BlockRead(f, A, 4);
[определенные проверки]
    end;

 
Первый раз цикл for обрабатывается нормально, а во второй на команде Seek(f, i) уже слетает с ошибкой I/O Error 6. Подскажите, в чем может быть дело.
 
Заранее благодарен...
 


----------
Never put off till tomorrow what can be put off till day after tomorrow just as well

Всего записей: 3118 | Зарегистр. 20-07-2005 | Отправлено: 09:07 05-07-2006 | Исправлено: Larry, 09:07 05-07-2006
ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Larry
попробуй перед AssignFile поставить {$I-}, а после завершения всего вернуть обратно {$I+} и не забывай CloseFile.

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 10:01 05-07-2006
Larry



Moderator
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ShIvADeSt, спасибо, буду пробовать. CloseFile не забываю.


----------
Never put off till tomorrow what can be put off till day after tomorrow just as well

Всего записей: 3118 | Зарегистр. 20-07-2005 | Отправлено: 10:59 05-07-2006
Anjin_Kazawa



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Larry

Цитата:
Первый раз цикл for обрабатывается нормально, а во второй на команде Seek(f, i) уже слетает с ошибкой I/O Error 6. Подскажите, в чем может быть дело.  
 
Заранее благодарен...  

 
Код ошибки 6 - это "Неверный дескриптор файла" так что разбирайся что отдуда и как

Всего записей: 392 | Зарегистр. 08-06-2005 | Отправлено: 11:08 05-07-2006
greenpc

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Larry
Ошибка написания Reset(f). Надо Reset(f, 1)
Если у тебя типизированный файл то может проще сделать через TStingList ?
а так вот смотри
Подробнее...

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 11:42 05-07-2006 | Исправлено: greenpc, 11:43 05-07-2006
ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
странно вот рабочий кусок  

Цитата:
 
var
    F: file of char;
    i:integer;
    A:array[1..4] of char;
begin
AssignFile(f, 'c:\Program Files\Mark\_ReadMe.txt');
   Reset(f);
    for i:=0 to FileSize(f)-4 do begin
     Seek(f, i);
     BlockRead(f, A, 4);
    end;
    CloseFile(F);
end;
 

проверял на текстовом файле - все работает, вначале проверь на каком нить реальном файле, а потом уже броузь на файл.

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 11:49 05-07-2006
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
 

Код:
 
    for i:=0 to FileSize(f)-4 do begin  
     Seek(f, i);  
 

 

1)
ИМХО, Seek здесь вообще не нужен. BlockRead перемещает указатель на прочитанное число байт.
 
2) BlockRead имеет необязательный параметр - число прочитанных байт
можно делать цикл
 repeat
   BlockRead(f, A, 4, NumRead);
 until NumRead < 4
 
3) Нет FoolProof:
   не отслеживается ситуация с последними байтами, размер файла может быть меньше  
4, размер может быть не кратен 4 и т.д..
 
Пишу сразу на рубоарде, не проверяя, так что - проверяйте сами ;-)))

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 12:16 05-07-2006 | Исправлено: SERGE_BLIZNUK, 12:27 05-07-2006
Anjin_Kazawa



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
greenpc

Цитата:
Ошибка написания Reset(f). Надо Reset(f, 1)

 
Не путай человека,
Код:
Reset(f, 1)
необходимо в случае если файл не типизирован и описан
Код:
F: file;


Всего записей: 392 | Зарегистр. 08-06-2005 | Отправлено: 12:22 05-07-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Проблема с TBrowser
 
Когда открываю страничьку через TBrowser или через IE происходит автоматическая активация TBrowser и установка курсора на первую позицию на сайте.... ну допустим вы зашли на сайт www.ya.ru и сразу курсос становиться на позицию поиска в яндексе, вы зашли на сайт http://www.google.com.ua/ тоже самое.... Если Вы нажмете курсором куда-либо на белом фоне гугля,тогда естественно курсор больше не станет на строку поиска и его нужно ставить в ручную ,или же ТАБ ом, но можно перезагрузить страцу и тогда он станет автоматическу туда, куда нужно , следовательно может быть какая-то процедура это делает по загрузке страници, или кто его знает
 
В моём приложении какая проблема запущен сайт в TBrowser , нажимаю какие либо кнопки на  форме и TBrowser больше не активен - какие либо действия на сайте производить больше невозможно
TBrowser.Visible :=True; не помогает

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 23:42 05-07-2006
ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OOD
попробуй TBrowser.SetFocus в конце каждого нажатия, по идее должен возвращать фокус туда, где он был до нажатия кнопки.

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:57 06-07-2006
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru