Подскажите, если вот есть переменная mass[0..50] of string то как можно обратится к конкретному символу в каком нибудь элементе массива?
Вопроса не понял... Допустим массив: Code: [B]mass: array [0..50] of string[/B] Обратиться к I - тому элементу mass.
дык если mas:array [0..50] of string; тогда mas[x][y]:='z'; где х - элемент массива. От 0 до 50 а Y - символ строки. От 1 до length()
помогите плиз, как встроить в прогу на делфи проигрывание mp3 файла вне зависимости от того, хочет ли этого юзер. Т.е. что-то вроде музыкальной темы, также нужно, чтобы заново проигрывался файл и заново, и заново...
Добавляешь компонент медиапроигрыватель(точно название не помню) и выставляешь в нем параметры где файл находится и т.д.
А где можно почитать о том как его юзать.А то в BDS 2006 справка чисто содрана копипастом с мсдн и про борланлские компоненты там почти не слова.
Народ имееться файл формата .blob мне нужно его расшифровать как это сделать с помощью делфи??? там в файле храняться пароли а если открыть текстовиком то там будут миллион строк!
Ну так кто то все таки знает как в канву листбокса выводить рисунок подгруженный из ресурсов с помощью TBitmap ?
cremator (c) вот это я и спрашиваю приблизительно И еще вопрос..... Как сделать чтобы при запуске проги не запускалось окно Ну по типу пинча
можно сделать его просто невидимы, но нужна ли тебе вообще форма? Лучше создай консольный проект и формы вообще не будет.=)
для этого достаточно не создавать окна. Если же надо его скрыть: http://www.codenet.ru/progr/delphi/vcl_faq/072.php
пишу ...точнее пытаюсь написать программу на турбо паскаль, ну чет не получается, помогите, че исправить над, буду благодарен вот код: Code: program Week; var U, R : integer; label ukr, rus; begin writeln('Виберіть мову/Выберите язык: U - українська; R - русский'); read(U,R); UKR:function UKR (var x : integer); begin writeln('Введіть число [день тижня]:'); read(x); write('День - '); case x of 1:Write ('Понеділок, '); 2:Write ('Вівторок, '); 3:Write ('Середа, '); 4:Write ('Четвер, '); 5:Write ('Пятниця, '); 6:Write ('Субота, '); 7:Write ('Неділя, '); else writeln('не вибраний! В тижні сім днів! Вибиріть число від 1 до 7!'); end; case x of 1:Write ('перший день робочого тижня!'); 2:Write ('другий'); 3:Write ('третій'); 4:Write ('четветрий'); 5:Write ('п''''ятий'); 6:Write ('шостий'); 7:Write ('сьомий'); end; if x=1 then writeln(' день робочого тижня! '); if x=2 then writeln(' день робочого тижня! '); if x=3 then writeln(' день робочого тижня! '); if x=4 then writeln(' день робочого тижня! '); if x=5 then writeln(' день робочого тижня! '); if x=6 then writeln(' день робочого тижня! '); if x=7 then writeln(' день робочого тижня! '); writeln('Кротка замітка:'); if x=1 then writeln('опис'); if x=2 then writeln('опис'); if x=3 then writeln('опис'); if x=4 then writeln('опис'); if x=5 then writeln('опис'); if x=6 then writeln('опис'); if x=7 then writeln('опис'); end; RUS:function RUS (var x : integer); begin writeln('Введите число [день недели]:'); read(x); write('День - '); case x of 1:Write ('Понедельник, '); 2:Write ('Вторник, '); 3:Write ('Среда, '); 4:Write ('Четверг, '); 5:Write ('Пятница, '); 6:Write ('Суббота, '); 7:Write ('Воскресенье, '); else writeln('не выбран! В неделе семь дней! Выберите число от 1 до 7!'); end; case x of 1:Write ('первый'); 2:Write ('второй'); 3:Write ('третий'); 4:Write ('четвертый'); 5:Write ('пятый'); 6:Write ('шестой'); 7:Write ('седьмой'); end; if x=1 then writeln(' день недели! '); if x=2 then writeln(' день недели! '); if x=3 then writeln(' день недели! '); if x=4 then writeln(' день недели! '); if x=5 then writeln(' день недели! '); if x=6 then writeln(' день недели! '); if x=7 then writeln(' день недели! '); writeln('Заметка:'); if x=1 then writeln('Понедельник....описание'); if x=2 then writeln('Вторник........описание'); if x=3 then writeln('Среда..........описание'); if x=4 then writeln('Четверг........описание'); if x=5 then writeln('Пятница........описание'); if x=6 then writeln('Суббота........описание'); if x=7 then writeln('Воскресенье....описание'); end; if read(U) then goto ukr else writeln(Error); if read(R) then goto rus else writeln(Error); end.
