/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1092
от 16.03.2008, 01:35

Вопрос № 126.600

Здравствуйте уважаемые эксперты. пишу программу, которая работает с mp3 тегами. в приложении изложена идея. проблема в том, что такой метод лишь дописывает файл, мне же не обходимо переписывать последние 128 символов (или удалять и записывать заново) Заранее спасибо. Буду рад любой критике и помощи и советам Приложение: ... var f:tfilestream; s:string[128]; ... try f:=Tfilestream.Create('c:1.mp3',fmOpenReadWrite); f.Position:=f.size-129; f.readbuffer(s,128); ... здесь выполняются некие преобразования с переменной s ... f.Position:=f.size-129; f.writebuffer(s,128); finally f.free end; ...

Отправлен: 10.03.2008, 10:13 Вопрос задал: Левадный Тимур (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Sosedov A.I. Здравствуйте, Левадный Тимур! Ваша программа работает именно так, как Вы и хотите. Однако ошибки и замечания все же есть: 1. Правильнее пользоваться методами Write и Read, как советует Help. 2. Из f.size правильно вычитать 128, чтобы позиционироваться в файле с отступом в 128 байт. 3. Лучше все же самому контролировать длину считываемой и записываемой строки. Для этого надо - описать s как переменную типа string; - перед операцией чтения устанавливать длину строки s равной числу считываемых байт (функция SetLength) - чтение производить в буфер, начинающийся с s[1] - по окончании чтения проверять число прочитанных байт и по необходимости корректировать длину строки. Вот что у меня получилось (см приложение). Приложение: var f: TFileStream; s: string; cnt: integer; begin f:=Tfilestream.Create('c:1.mp',fmOpenReadWrite); f.Position:=f.size-128; SetLength(s,128); cnt:=f.read(s[1],128); SetLength(s,cnt); f.Position:=f.size-128; s:=DupeString('Q',128); f.write(s[1],Length(s)); f.free; end;

Ответ отправил: Sosedov A.I. (статус: 3-ий класс) Ответ отправлен: 10.03.2008, 14:49 Оценка за ответ: 5 Комментарий оценки: Большое спасибо за все, обязательно переделаю свой код

Вопрос № 126.635

Здравствуйте! Delphi 7. Следующая задача. Разработать программу, которая позволит вычислять произведение произвольных чисел и находить квадрат произвольного числа. Произвольные числа вводить с помощью двух ползунков TrackBar. Расположение ползунка выводить с помощью двух Label. Вычислять произведение в зависимости от положения ползунка первого TrackBar. Результат выводить с помощью Label находящийся в компоненте GroupBox с заголовком "Произведение". При помощи компонента CheckBox изменять заголовок GroupBox "Произведение" на "Квадрат" и выполнять вычисление квадрата произвольного числа в зависимости от одновременного изменения двух ползунков . После удалении "галочки" восстановление заголовка GroupBox выполнять вычисление произведение произвольных чисел. Приложение: unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Borland.Vcl.StdCtrls, System.ComponentModel, Borland.Vcl.ComCtrls; type TForm4 = class(TForm) TrackBar1: TTrackBar; TrackBar2: TTrackBar; Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; GroupBox1: TGroupBox; CheckBox1: TCheckBox; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation {$R *.nfm} procedure TForm4.Button1Click(Sender: TObject); begin Close; end; procedure TForm4.FormCreate(Sender: TObject); begin Trackbar1.Min:=1; Trackbar1.Max:=200; TrackBar2.Min:=1; Trackbar2.Max:=200; end; end.

Отправлен: 10.03.2008, 15:09 Вопрос задал: Спиридонов Данил Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Denisss Здравствуйте, Спиридонов Данил Сергеевич! В приложении находится пример главного модуля программы (Unit 4). Закомментировал по-максимуму (на всякий случай). Если честно, то не совсем уверен, что правильно понял суть задачи: 1. Если я правильно понял, то "Вычислять произведение в зависимости от положения ползунка первого TrackBar" означает, что при перемещении второго ползунка не должно вызывать пересчет произведения. Если это не так, то следует добавить в конец обработчика события TrackBar2.OnChange: Label3.Caption:= IntToStr(TrackBar1.Position * TrackBar2.Position); 2. "...в зависимости от одновременного изменения двух ползунков..." - здесь я понял так, что при установленной галочке ползунки должны перемещаться одновременно. PS К ответу прикреплен весь проект в архиве. Удачи! Приложение: unit Unit4; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm4 = class(TForm) TrackBar1: TTrackBar; Label1: TLabel; TrackBar2: TTrackBar; Label2: TLabel; CheckBox1: TCheckBox; GroupBox1: TGroupBox; Label3: TLabel; Button1: TButton; procedure TrackBar1Change(Sender: TObject); procedure TrackBar2Change(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation {$R *.dfm} // Событие TrackBar1.OnChange procedure TForm4.TrackBar1Change(Sender: TObject); begin // Отображаем значение в Label1 Label1.Caption:= IntToStr(TrackBar1.Position); // Если стоит галочка, то перемещать // оба ползунка одновременно if (CheckBox1.Checked and (TrackBar1.Position <> TrackBar2.Position)) then TrackBar2.Position:= TrackBar1.Position; // Выводим результат произведения // Если стоит галочка, то значения // TrackBar1.Position и TrackBar2.Position // будут равны, а значит произведение // будет равняться квадрату Label3.Caption:= IntToStr(TrackBar1.Position * TrackBar2.Position); end; // Событие TrackBar2.OnChange procedure TForm4.TrackBar2Change(Sender: TObject); begin // Отображаем значение в Label2 Label2.Caption:= IntToStr(TrackBar2.Position); // Если стоит галочка, то перемещать // оба ползунка одновременно if (CheckBox1.Checked and (TrackBar1.Position <> TrackBar2.Position)) then TrackBar1.Position:= TrackBar2.Position; end; // Событие CheckBox1.OnClick procedure TForm4.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then // Галочка установлена begin // Меняем заголовок GroupBox1 GroupBox1.Caption:= 'Квадрат'; // Устанавливаем позицию 2-го // TrackBar равной позиции 1-го // TrackBar TrackBar2.Position:= TrackBar1.Position; // Производим перемножение // (возведение в квадрат) Label3.Caption:= IntToStr(TrackBar1.Position * TrackBar2.Position); end else // Меняем заголовок GroupBox1 GroupBox1.Caption:= 'Произведение'; end; // Событие Button1.OnClick procedure TForm4.Button1Click(Sender: TObject); begin // Закрываем программу Close; end; // Событие Form4.OnCreate procedure TForm4.FormCreate(Sender: TObject); begin // Устанавливаем границы // обоих TrackBar TrackBar1.Min:= 1; TrackBar1.Max:= 200; TrackBar2.Min:= 1; TrackBar2.Max:= 200; // Устанавливаем начальные значения Label1.Caption:= '1'; Label2.Caption:= '1'; Label3.Caption:= '1'; // Устанавливаем заголовки элементов GroupBox1.Caption:= 'Произведение'; CheckBox1.Caption:= 'Квадрат'; end; end. Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Будь осторожен, когда молишься ради чего-то, потому что можешь это получить...

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ICQ: 281599577 ---- Ответ отправлен: 11.03.2008, 13:22

Вопрос № 126.717

Добрый день, уважаемые эксперты! У меня такой вопрос. Как определить количество лет, месяцев и дней между двумя датами.

Отправлен: 10.03.2008, 23:04 Вопрос задал: Avramenko S.N. (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Zubex Здравствуйте, Avramenko Serge Nikolaevich! Для определения разницы между двумя датами используйте следующие функции: - кол-во лет - YearsBetween(дата1,дата2); - кол-во месяцев - MonthsBetween(дата1,дата2); - кол-во дней - DaysBetween(дата1,дата2). Удачи. --------- Если не знаешь что сказать - лучше промолчи...

Ответ отправил: Zubex (статус: 8-ой класс) Ответ отправлен: 11.03.2008, 10:27 Оценка за ответ: 5 Комментарий оценки: Но это не совсем то, что было нужно. Видимо я не правильно сформулировал вопрос

Отвечает: Louken Здравствуйте, Avramenko S.N.! //Нужно подключить: uses DateUtils; //Чудо процедура: procedure GetDayMonthYear(const dt1, dt2: TDateTime; var d,m,y: integer); var ds: Double; begin ds:=DaySpan(dt1, dt2); //Количество дней прошедших между двумя датами y:=Trunc(ds/ApproxDaysPerYear); //Количество полных лет ds:=ds-y*ApproxDaysPerYear; //Количество дней, за вычетом y-лет m:=Trunc(ds/ApproxDaysPerMonth); //Количество полных месяцев d:=Trunc(ds-m*ApproxDaysPerMonth); //Количество дней end; //Использовать примерно так: var dt1, dt2: TDateTime; d,m, y: integer; begin dt1:=StrToDate('31.05.2006'); dt2:=StrToDate('01.02.2008'); GetDayMonthYear(dt1, dt2, d,m,y); ShowMessage(inttostr(d)+', '+inttostr(m)+', '+inttostr(y)); end;

Ответ отправил: Louken (статус: Студент) Ответ отправлен: 11.03.2008, 12:34 Оценка за ответ: 5 Комментарий оценки: Получилось очень изящно!

Отвечает: Genia007 Здравствуйте, Avramenko S.N.! В своё время меня тоже интересовал этот же вопрос, на что я накидал эту программку, единственный недостаток это - высокосные года, с которыми мне лень было разбираться, и ещё я использовал модернизированные кнопки BitBtn, в которых я воткнул выбор цвета кнопки. Идея вычисления должна быть Вам понятна. Код программы перенесен в приложение. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессионал) ∙ Дата редактирования: 11.03.2008, 20:09 Приложение: unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Buttons, DateUtils; type Tdate = class(TForm) BitBtn1: TBitBtn; Edit1: TEdit; DateTimePicker2: TDateTimePicker; DateTimePicker1: TDateTimePicker; Edit3: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; BitBtn2: TBitBtn; Edit4: TEdit; Label6: TLabel; Edit5: TEdit; Label7: TLabel; Edit6: TEdit; Label8: TLabel; procedure BitBtn1Click(Sender: TObject); procedure DateTimePicker1Change(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var date: Tdate; a1,b1,c1:integer; a2,b2,c2:integer; implementation {$R *.dfm} procedure Dateproc(date1,date2:tdatetime; out a1,b1,c1:integer); var a,b,c:integer; begin a:=YearsBetween(Date1, Date2); b:=MonthsBetween(Date1,Date2)- 12*a; if DayOfTheMonth(Date1)>=DayOfTheMonth(Date2) then c:=(DayOfTheMonth(Date1)-DayOfTheMonth(Date2))+1 else c:=(DayOfTheMonth(Date1)-DayOfTheMonth(Date2)+DaysInMonth(Date2))+1; a1:=a; b1:=b; c1:=c; end; procedure Tdate.FormCreate(Sender: TObject); begin {BitBtn1.ButtonColor:=$0065CA00; BitBtn2.ButtonColor:=$0065CA00;} a2:=0; b2:=0; c2:=0; end; procedure Tdate.BitBtn1Click(Sender: TObject); begin Dateproc(DateTimePicker1.DateTime,DateTimePicker2.DateTime,a1,b1,c1); Edit1.Text:=inttostr(c1); Edit2.Text:=inttostr(b1); Edit3.Text:=inttostr(a1); end; procedure Tdate.DateTimePicker1Change(Sender: TObject); begin BitBtn1.Click; end; procedure Tdate.BitBtn2Click(Sender: TObject); var b3,c3:integer; begin a2:=a2+a1; b2:=b2+b1; c2:=c2+c1; if c2>31 then begin c3:=c2 mod 31; b2:=b2+(c2 div 31);end else c3:=c2; if b2>=13 then begin b3:=b2 mod 12; a2:=a2+(b2 div 12);end else b3:=b2; edit4.Text:=floattostr(c3); edit5.Text:=floattostr(b3); edit6.Text:=floattostr(a2); end; end.

Ответ отправил: Genia007 (статус: 7-ой класс) Ответ отправлен: 11.03.2008, 15:30 Оценка за ответ: 5 Комментарий оценки: У меня получилось примерно то же самое

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.72.4 от 15.03.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru