RusFAQ.ru: Программирование на Delphi
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на C++ Builder / Delphi
Выпуск № 307
от 22.03.2004, 02:30
| Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва |
О рассылке: Задано вопросов: 1427 Отправлено ответов: 3212 Активность: 225.0 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| CJ Статус: Опытный Общий рейтинг: 124.44 URL: Мой персональный сайт! Зайдите и не пожалеете! Телефон: +3757353706 [Подробней >>] |
Boriss Статус: Профессиональный Общий рейтинг: 154.89 URL: Программирование на Паскале [Подробней >>] |
D.M. Статус: Опытный Общий рейтинг: 127.63 URL: Автостартовщик [Подробней >>] |
| vitya Статус: Профессиональный Общий рейтинг: 108.88 [Подробней >>] |
sir henry Статус: Профессиональный Общий рейтинг: 158.4 [Подробней >>] |
THE_PRO Статус: Профессиональный Общий рейтинг: 137.82 URL: THE_PRO Телефон: (994 +12) 989647 [Подробней >>] |
| Pawel Статус: Профессиональный Общий рейтинг: 161.01 [Подробней >>] |
samum2000 Статус: Профессиональный Общий рейтинг: 132.37 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 1422. Подскажите листинг для того, чтобы открыть текстовый файл на чтение и обеспечить построчное считыван... (ответов: 8)
Вопрос № 1423. Привет! 2Boris: Я же сказал что-бы был эфект развертывания окна был экивалентен нажатию кнопки в заг... (ответов: 2)
Вопрос № 1424. Привет! > HOOK на клик мыши. А на каком принципе основываться? И как именно клики отслеживать, с сыл... (ответов: 1)
Вопросов: 3, ответов: 11
| Вопрос № 1422 |
Подскажите листинг для того, чтобы открыть текстовый файл на чтение и обеспечить построчное считывание информации из файла!
Спасибо!
Вопрос отправлен: 17.03.2004, 17:03
Отправитель: ToxA (toxa@ic-knk.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает CJ
Добрый день, ToxA!
Используй паскалевский метод AssignFile(...
А потом просто Readln(f,.. Столько сколоко строк надо прочитать!
Ответ отправлен: 17.03.2004, 19:17
Отправитель: CJ
Отвечает Boriss
Добрый день, ToxA!
Вот так:
Приложение:
Ответ отправлен: 17.03.2004, 17:40
Отправитель: Boriss
Отвечает D.M.
Приветствую Вас, ToxA!
var fl:Text;
a:string;
i:integer;
Begin
Assign(fl,'C:autoexec.bat');// Ассоциируем
Reset(fl); // Только чтение
Repeat
Readln(fl,c);// Читаем построчно
writeln(c);
Until EOF(fl); // пока не конец...
End;
//Pascal
Ответ отправлен: 17.03.2004, 17:47
Отправитель: D.M.
Отвечает vitya
Добрый день, ToxA!
предполагаю BCB, так как язык не указан
std::string s;
std::ifstream if(filepath);
while (std::getline(if, s))
{
MessageBox(NULL, s.c_str(), "Line", MB_OK);
}
Ответ отправлен: 18.03.2004, 12:59
Отправитель: vitya
Отвечает sir henry
Приветствую Вас, ToxA!
См. в приложении.
Приложение:
Ответ отправлен: 18.03.2004, 09:03
Отправитель: sir henry
Отвечает THE_PRO
Доброе время суток, ToxA!
var f:file
s:string;
begin
AssignFile(f,FileName);
Reset(f);
ReadLn(f,s);
...
CloseFile(f);
end;
Ответ отправлен: 18.03.2004, 12:29
Отправитель: THE_PRO
Отвечает Pawel
Добрый день, ToxA!
var f:Text;
s:string;
i:integer;
...
Assign(fl,'FILE_NAME');
Reset(fl);
Repeat
Readln(fl,s);
...
// ваш оброботцик для строки
...
Until EOF(fl);
End;
Ответ отправлен: 18.03.2004, 16:26
Отправитель: Pawel
Отвечает samum2000
Приветствую вас,ToxA!
var
f: textfile;
s:string;
begin
assignfile(f,'myfile.txt'); {связали файл myfile.txt с переменной f}
reset(f); {открыли для чтения}
while not eof(f) do {пока не дошли до конца}
begin
readln(f,s) {прочитали строчку}
...{что-то с ней сделали}
end;
closefile(f);{закрыли файл}
end;
--------------------------
-=Experts helper: testmode=-
Ответ отправлен: 19.03.2004, 11:40
Отправитель: samum2000
| Вопрос № 1423 |
Привет!
2Boris: Я же сказал что-бы был эфект развертывания окна был экивалентен нажатию кнопки в заголовке окна!
А твой код просто расширяет окно согласно размерам экрана.
2samum2000:
>А какая разница?
В том что, если послать это сообщение то полоса просто исчезнет! И окно не применит полный размер при
максиминилизаци!!!
>Написать глобальный hook на мышь
В чем суть работы?
Мне это для чего то надо, вот, я использую компонент shockwaveflash, при проигрывании ролика,
если зменить его размеры через Width и heigth, то он как бы виснет. А если окно проги максимнилизовать,
то все продолжается нормально.
ороче мне надо сдеать fullscreen с этим конторолм.
Вопрос отправлен: 18.03.2004, 18:21
Отправитель: Kirill (karatetski@tut.by)
[Следующий вопрос >>] [Список вопросов]
Отвечает sir henry
Доброе время суток, Kirill!
Привяжите компонент к размерам окна с помощью свойства anchors. Fullscreen, правда, не получится, но компонент будет автоматически менять размеры вместе с размерами окна.
Ответ отправлен: 19.03.2004, 14:55
Отправитель: sir henry
Отвечает samum2000
Приветствую вас,Kirill!
FullScreen можно сделать так, как написано в приложении, и измываться над таск баром не обязательно.
Суть работы ловушки (если ты об этом) в том, что она контролирует события внутри системы, связанные, в данном случае, с мышью. По-большому счету это процедура-фильтр, загружаемая из DLL.
Подробнее можно посмотреть на Delphi.mastak.ru и DelphiKingdom.ru. Если возникнут проблемы - пиши, помогу, чем смогу.
--------------------------
-=Experts helper: testmode=-
Приложение:
Ответ отправлен: 20.03.2004, 07:53
Отправитель: samum2000
| Вопрос № 1424 |
Привет!
> HOOK на клик мыши.
А на каком принципе основываться? И как именно клики отслеживать, с сылкой?
> Изменением координат.
Каким кодом???
Вопрос отправлен: 18.03.2004, 21:44
Отправитель: Kirill
[Следующий вопрос >>] [Список вопросов]
Отвечает samum2000
Приветствую вас,Kirill!
Кстати, многие вещи можно и без ловушек делать. Вот недавно такой интересный код нашел (см приложение). На форму только надо поместить 3 метки и таймер с периодом поменьше.
--------------------------
-=Experts helper: testmode=-
Приложение:
Ответ отправлен: 20.03.2004, 07:53
Отправитель: samum2000
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (26) C / C++ (17) Perl (4) Builder / Delphi (19) Pascal (22) Basic / VBA (8) Java / JavaScript (7) PHP (14) Криптография (7) WinAPI (15) Радиоэлектроника (8) |
Пользователю Windows 95/98/Me (44) Windows NT/2000/XP (57) "Железо" (35) Поиск информации (21) |
Администратору Windows NT/2000/XP (27) Linux / Unix (13) |
Юристу Гражданское право (12) Семейное право (11) Трудовое право (12) КоАП (9) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
