Огроменное тебе спасибо!!!) я тебя просто обожаю) не видел еще человека чтобы так все разжевывал) а чтобы выделял цветом в меню .. я сам сделаю :D =DDD ты только не забываю тему эту проверять. у меня полюбэ будут еще вопросы) там еще где меню.. .надо будет курсор убрать... но эт я сам :huh:
И еще вопросик... unit MenuDef; interface что значит юнит?:D и интерфейс.. ну что пинтерфейс значит эт понятно.. а как паскаль это воспринимает?:О implementation и еще вот это словечко :huh:
И ведь то что ты придумал... не так сложно... ппц.. чтож я сам не додумался) К стате..... мб из-за разных версий паскаля? MenuIndex: integer = 0; тут пишет синтаксическую ошибку.... MenuItems: array[0..4] of integer = ( MENU_RUN, MENU_LOAD, MENU_SAVE, MENU_ABOUT, MENU_EXIT ); тут после интеджера просит ; в общем дальше смотреть пока не буду.. приду разбирусь... и еще) извини конешно что я наглею) а там пользователь сам видит какой пункт меню он выбрал? получается можно ведь сделать что-то типо если индекс равен 1 то пункт Load подсвечивается.... да можно... но вот только как =-\\\ я просто паскаль учу 2 года в школе... а там ... ну немного хуита....
Так за то чтобы считывать из файла построчно. огроменное спасибо :D приду попозже проверю на работоспособность :huh: Программа та, компилированная у меня не запускается :) из-за версии винды =-\\ ну я щас попробую скомпилировать из пас файлов... только вот турбо паскаль такие коменты не читает, как ты там прописал) вечером приду, постираю коменты ,скомпилирую и гляну))))
Статья та, на которую ты ссылку дал. очень полезная! возьму на вооружение... но ответа на мой вопрос там нету..... давай я поподробнее опишу что я хочу сделать.... у меня есть какаято программа... там есть главное меню... предположим вот такое: НАЧАТЬ СОХРАНИТЬ ЗАГРУЗИТЬ ВЫЙТИ из той статьи... я понял как сделать так чтобы при нажатии определенной клавиши выполнялся какойто пункт меню... а мне надо сделать так чтобы я мог управляя стрелочками на клавиатуре передвигаться по меню... и когда я например выбрал ВЫЙТИ , я нажимаю интер... ну и программа закрывается:D p.s. както так....
for i:=0 to Line do begin if(EOF(F)) then break; ReadLn(F, GetFLine); Сори... я нуп еще.. можещ разжувать мне... Line (EOF(F)) ReadLn(F, GetFLine);
Еще парочка вопросов.... 1: Предположим у меня есть вот такой txt файл 34543545354 54645645645 65756756756 89789879789 Как мне из этого файла взять только опредленную строчку? например первую? 2: Тут были дискуссии по поводу управления мышкой в главном меню в программе на паскале.... я на это забил... и теперь хочу спросить у вас, как сделать управление с клавиатуры?
Огроменное тебе спасибо! И спасибо тому кто почистил тему!)
Очень прошу.... подробно... разжевать следующее... т.к. мне не нужно тупо скопировать это. мне нужно это понимать и использовать..... procedure ScanDir(Dir: string); var SearchRec: TSearchRec; begin if Dir <> '' then if Dir[length(Dir)] <> '\' then Dir := Dir + '\'; if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then repeat if (SearchRec.name = '.') or (SearchRec.name = '..') then continue; if (SearchRec.Attr and faDirectory) <> 0 then ScanDir(Dir + SearchRec.name) //we found Directory: "Dir+SearchRec.name" else filename:=Dir + SearchRec.name; // тут писать то, что нужно делать с найденным файлом //we found File: "Dir+SearchRec.name" until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; // Пример использования ScanDir('c:');
все великий Jolan мне помог! {Спасибо, конечно, но мог бы и написать, как я помог) Проблема была в том, что указывался неполный путь. Т.е. Программа лежала еще в одной подпапке. JoLan}
нет косяка нету... в папке tests есть папка 1 а TestGroup:='1';
странно если с плюсами он пишет типо не найден пусть.... Assign(ppc,'tests\'+TestGroup+'\'+TestName); TestGroup - папка testgroup:='1'; такая папка там есть.... а тест нейм - файл который должен создаваться в этой папке.. но когда пытаюсь создать с помощью rewrite он пишет типо не найден путь
Может ктонить мне скзаать правельный путь? Assign(ppc,'tests\'+TestGroup+'\'+TestName);
Спасибо, + поставил , еще вопрос... вот тут пусть правельно указан? в дельфи это делаю плюсиками, а в паскале также? Assign(ppc,'tests\'+TestGroup+'\'+TestName); если tests - уже готовая папка, а тест груп - переменная, тест нейм - тоже переменная
-
я в фотошопе уже по сетки даже резал... минут 20 убил ! не фига! всеравно фигня какаято
<td valign="top"> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr style="background:url('images/1.png');"><td width="57" height="42"><img src="images/2.png" border="0"></td><td></td><td width="63" height="42"><img src="images/3.png" border="0"></td></tr> <tr><td width="57" style="background:url('images/4.png');"></td><td style="background:#191418;padding:5px;"><!-- <body> -->$CONTENT$<!-- </body> --></td><td width="63" style="background:url('images/5.png');"></td></tr> <tr style="background:url('images/6.png');"><td width="57" height="42"><img src="images/7.png" border="0"></td><td></td><td width="63" height="42"><img src="images/8.png" border="0"></td></tr> </table> </td> вот код.. глянь как получается.. я тут присоеденил все файлы и еще присоеденил основной неразрезанный
а размеры там обязательно? мне нужно именно такие вырезать? или мб просто убрать размеры?
ппц все криво получается..
ты мне пока только в 2х вещах помог) я только не понимаю.. если я разобью и сделаю как на юкозе, оно будет растягиваться?:mellow:
用逗号分隔用户名
