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

Выпуск № 1050
от 31.01.2008, 10:05

Вопрос № 120.078

Здравствуйте, уважаемые эксперты! Пишу свой класс для работы с текстовыми файлами некоторого формата. В процессе работы возникли следующие вопросы. 1. Одним из полей класса является StringList, в который при создании объекта класса из файла загружаются строки вида "Имя=Значение" и необходимо подсчитать количество строк, у которых одинаковое "Имя". Если это делать при помощи конструкции if MidStr(FFileStrings.Strings[i],1,2)='SR' then Inc(FPlotCount); то все подсчитывается корректно. Но когда пытаюсь воспользоваться таким кодом if FFileStrings.Names[i]='SR' then Inc(FPlotCount); то при выполнении программы получаю ошибку "List index (0) out of bounds". В чем здесь может быть проблема? 2. В этом же классе, в одном из методов нужно получить полную копию StringList'a в буферной переменной, над которой и будут производится действия, при этом исходный StringList должен оставаться неизменным. Пробовал так: tmp:=TStringList.Create; tmp.Assign(FFileStrings); и tmp.AddStrings(FFileStrings); ничего не получается. В чем может быть проблема и как правильно это делать? Часть кода класса прилагаю. Приложение: TMyFile=class private FFileStrings:TStringList; //список строк файла FPlotCount:integer; //количество строк с одинаковым "Именем" FFileName:string; public constructor Create(AFileName:string); destructor Destroy; override; property PlotCount: integer read FPlotCount; property FileName: string read FFileName; procedure ReadData(S:string; const Index:integer=1); end; constructor TMyFile.Create(AFileName: string); var i:integer; begin FFileName:=AFileName; FFileStrings:=TStringList.Create; FFileStrings.LoadFromFile(AFileName); FPlotCount:=0; for i:=0 to FFileStrings.Count-1 do begin if MidStr(FFileStrings.Strings[i],1,2)='SR' then Inc(FPlotCount); {а так не получатся if FFileStrings.Names[i]='SR' then Inc(FPlotCount);} end; end; destructor TMyFile.Destroy; begin FPlotCount:=0; FFileName:=''; FFileStrings.Free; inherited Destroy; end; procedure TMyFile.ReadData(S:string; const Index: integer); var tmp:TStringList; n:integer; begin tmp:=TStringList.Create; {этот код не работает for n:=0 to FFileStrings.Count-1 do tmp.Append(FFileStrings.Strings[n]); //tmp.Assign(FFileStrings); //tmp.AddStrings(FFileStrings); } try if Index>1 then begin n:=0; while n<Index do begin //тут начинаем обрататывать копию списка (tmp) if tmp.Names[0]='SR' then //и нарываемся на ошибку begin Inc(n); if n=Index then Break else Continue; end; if tmp.Count>0 then tmp.Delete(0) else Exit; end;//while end; //дальнейшие манипуляции с копией (tmp) //àíàëèç ó÷àñòêà finally tmp.Free; end; end;

Отправлен: 25.01.2008, 09:49 Вопрос задал: Voltron (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Selya Здравствуйте, Voltron! 1. Попробуйте так: if SameText(FFileStrings.Names[i], 'SR') then Inc(FPlotCount); У меня получилось и "List index (0) out of bounds". В вашем случае, проверьте количество строк в отладчике, возможно файл не загрузился. 2. В тексте вопроса всё правильно и должно рвботать: tmp:=TStringList.Create; try tmp.Assign(FFileStrings); ... finally tmp.Free; end; А в коде снимите коментарий с tmp.Assign(FFileStrings);

Ответ отправил: Selya (статус: 4-ый класс) Ответ отправлен: 26.01.2008, 14:47

Вопрос № 120.102

Здравствуйте, уважаемые эксперты. Вопрос такой: как из Delphi открыть указанный файл закрепленным по умолчанию в системе приложением для документов Microsoft Word? Спасибо за ответы

Отправлен: 25.01.2008, 12:17 Вопрос задал: Alexander L. (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ranmasao Здравствуйте, Alexander L.! есть несколько способов: например можно через ShellExecute вызвать Word с именем файла в качестве параметра, а можно через OLE запустить Word и через OLE открыть в нем файл. Причем с OLE есть два способа: можно задействовать интерфейс через переменную типа OLEVariant, а можно использовать OLE-компонент, входящий в стандартную поставку Delphi (находится кажется на палитре "OLE servers").

Ответ отправил: Ranmasao (статус: 2-ой класс) Ответ отправлен: 25.01.2008, 12:28 Оценка за ответ: 3 Комментарий оценки: Ответ частично правильный, поскольку речь идет не только о запуске MS Office.

Отвечает: Drbear Здравствуйте, Alexander L.! Попробуйте использовать ShellExecute. Пример кода в приложении, на форме кнопка и OpenDialog. Приложение: uses ..., ShellAPI; ... procedure TForm1.Button1Click(Sender: TObject); var ach: PAnsiChar; begin if OpenDialog1.Execute then begin ach := PAnsiChar(OpenDialog1.FileName); ShellExecute(handle, nil, ach, nil, nil, SW_MAXIMIZE); end; end;

Ответ отправил: Drbear (статус: 6-ой класс) Ответ отправлен: 25.01.2008, 12:31 Оценка за ответ: 5 Комментарий оценки: Правильный ответ, именно то, что мне нужно было. Если в системе установлен Open Office или другое приложение, запускается именно оно, а не MS Word. Спасибо.

Отвечает: Дегтярев Антон Александрович Здравствуйте, Alexander L.! В uses допишите ComObj var MsWord : Variant; begin MsWord := CreateOleObject('Word.Application'); MsWord. Documents.Open('путь до файла'); end; Если вы будете работать через OleObject любую операцию можно посмотреть через макросы. --------- Все грибы съедобны, но некоторые - только раз в жизни

Ответ отправил: Дегтярев Антон Александрович (статус: 4-ый класс) Ответ отправлен: 25.01.2008, 12:42 Оценка за ответ: 2 Комментарий оценки: Вопрос был об приложении "по умолчанию", а не конкретно о MS Office. А если он не установлен? то файл не откроется. Все равно спасибо за ответ.

Отвечает: Genia007 Здравствуйте, Alexander L.! Модуль ShellAPI С помощью функции ShellExecute. Функция ShellExecute позволяет выполнить любое приложение Windows. Можно также открыть файл документа, что означает выполнение связанного с ним приложения и загрузку в него этого документа. Например, обычно с документами, имеющими расширение .doc, связан Winword. В этом случае открыть файл, например, с именем 'file.doc' означает запустить Winword и передать ему в качестве параметра имя файла 'file.doc'. ShellExecute(Handle,nil,'file.doc',nil,nil,SW_RESTORE);

Ответ отправил: Genia007 (статус: 5-ый класс) Ответ отправлен: 27.01.2008, 15:11

Вопрос № 120.107

Уважаемые эксперты помогите! У меня такая проблема необходимо реализовать отображение, прокрутку изображений загруженных в приложение, как предпросмотр, прокрутка страниц в левой части Adobe PDF Reader'а. С помошью какого компонента это можно реализовать ?

Отправлен: 25.01.2008, 12:35 Вопрос задал: Черных Максим (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Drbear Здравствуйте, Черных Максим! Можно использовать динамически создаваемые TImage и ScrollBox Пример кода в приложении, на форме пустой ScrollBox и кнопка. Приложение: ... procedure ListFileDir(); var sr: TSearchRec; FileList: TStringList; Path: String; i: Integer; image: TImage; begin FileList := TStringList.Create; try try if FileList = nil then exit; FileList.Clear; Path := 'С:Image'; if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin repeat if (sr.Attr <> 16) and (sr.Attr <> 48) then FileList.Add(sr.Name); until FindNext(sr) <> 0; FindClose(sr); end; for i := 0 to pred(FileList.Count) do begin image := TImage.Create(Form1.ScrollBox1); image.Parent := Form1.ScrollBox1; image.AutoSize := False; image.Width := Form1.ScrollBox1.Width - 30; image.Height := image.Width; image.Left := 5; image.Top := image.Width * i + 5; image.Proportional := True; image.Picture.LoadFromFile(Path + FileList[i]); end; except FileList.Clear; ShowMessage('Не удалось получить списка файлов из папки: "' + path + '"'); end; finally FileList.Free; end; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var i: Integer; begin i := pred(ScrollBox1.ComponentCount); while ScrollBox1.ComponentCount > 0 do begin // добавить проверку чтобы избежать "зависания" // если в ScrollBox1 есть что-то кроме TImage if (ScrollBox1.Components[i] is TImage) then begin (ScrollBox1.Components[i] as TImage).Free; i := pred(ScrollBox1.ComponentCount); end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin ListFileDir(); end; end.

Ответ отправил: Drbear (статус: 6-ой класс) Ответ отправлен: 25.01.2008, 13:00 Оценка за ответ: 5

Отвечает: PavelGM Здравствуйте, Черных Максим! Еще можно предложить TListView в режиме vsIcons, заполняя связанный с ним ImageList картинками.

Ответ отправил: PavelGM (статус: Студент) Ответ отправлен: 25.01.2008, 18:03

Вопрос № 120.108

Почему нулевой датой является 30,12,1899 ? 20 век? почему не 31 число? Приложение: ShowMessage(DateToStr(0));

Отправлен: 25.01.2008, 12:37 Вопрос задал: Raptor3 (статус: 4-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Raptor3! Потому что фирма Borland так захотела когда писала Delphi :) Насколько мне известно, эта дата просто считается стандартной датой начала отсчета. Из справки: The integral part of a Delphi TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of the TDateTime value is fraction of a 24 hour day that has elapsed. В приложении полная статья по типу TDateTime из справки delphi 7. Удачи! Приложение: TDateTime represents a date-and-time value in the Delphi language. Unit System Delphi syntax: type TDateTime = type Double; Description Most CLX objects represent date and time values using a TDateTime value. In Delphi, TDateTime is a type that maps to a Double. In C++, the TDateTime class corresponds to the Delphi TDateTime type. The integral part of a Delphi TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of the TDateTime value is fraction of a 24 hour day that has elapsed. Following are some examples of TDateTime values and their corresponding dates and times: 0 12/30/1899 12:00 am 2.75 1/1/1900 6:00 pm -1.25 12/29/1899 6:00 am 35065 1/1/1996 12:00 am To find the fractional number of days between two dates, simply subtract the two values, unless one of the TDateTime values is negative. Similarly, to increment a date and time value by a certain fractional number of days, add the fractional number to the date and time value if the TDateTime value is positive. When working with negative TDateTime values, computations must handle time portion separately. The fractional part reflects the fraction of a 24-hour day without regard to the sign of the TDateTime value. For example, 6:00 am on 12/29/1899 is –1.25, not –1 + 0.25, which would be –0.75. There are no TDateTime values between –1 and 0. Note: Delphi 1.0 calculated the date from year 1 instead of from 1899. To convert a Delphi 1.0 date to a TDateTime value in later versions of the Delphi language, subtract 693594.0 from the Delphi 1.0 date.

Ответ отправил: Николай Владимирович / Н.В. (статус: Специалист) Ответ отправлен: 25.01.2008, 16:45 Оценка за ответ: 3 Комментарий оценки: Интересно - всетаки интересно из каких соображений исходили - Note: Delphi 1.0 calculated the date from year 1 instead of from 1899 -это переводится что в первой версии отчет велся с 1900 года?? не просто же так взяли и сменили отчет

Вопрос № 120.111

Здрасте! Нужно сделать проверку на наличие папки, и если она есть, то удалить её. Спасибо заранее! З.Ы. У меня Delphi 7.

Отправлен: 25.01.2008, 13:11 Вопрос задала: Екатерина Ходеева (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Drbear Здравствуйте, Екатерина Ходеева! Почитайте http://delphiworld.narod.ru/base/del_full_folder.html там есть и другие варианты

Ответ отправил: Drbear (статус: 6-ой класс) Ответ отправлен: 25.01.2008, 13:28 Оценка за ответ: 5 Комментарий оценки: Спасибо Огромное! Это то, что надо!

Отвечает: Raptor3 Здравствуйте, Екатерина Ходеева! 1. DirectoryExists - проверка на наличие каталога 2.RemoveDirectory - удаление тока пустой папки 3. приложение - удаление каталога с файлами и со вложенными папками Приложение: procedure RemoveAll(path: string); var sr: TSearchRec; begin if FindFirst(path + '*.*', faAnyFile, sr) = 0 then begin repeat if sr.Attr and faDirectory = 0 then begin DeleteFile(path + '' + sr.name); end else begin if pos('.', sr.name) <= 0 then RemoveAll(path + '' + sr.name); end; until FindNext(sr) <> 0; end; FindClose(sr); RemoveDirectory(PChar(path)); end; --------- Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете

Ответ отправил: Raptor3 (статус: 4-ый класс) Ответ отправлен: 25.01.2008, 13:43 Оценка за ответ: 5 Комментарий оценки: Спасибо за столь оригинальное решение! Но я похожее где-то встречала. Если вас не затруднит, объясните всё в мини-форуме.

Отвечает: Дегтярев Антон Александрович Здравствуйте, Екатерина Ходеева! использовать модуль ShellApi Вызываем стондартную процедуру на определение есть ли данная папка Если есть то вызываем вторую процедуру удаления Если нет то сообщаем что папки нет procedure TSms.SendBtnClick(Sender: TObject); var whey: string; begin whey := 'путь до папки'; if DirectoryExists(whey) then DelDir(whey) else ShowMessage('данная папка отсутствует'); end; function TSms.DelDir(dir: string): Boolean; { Проект Delphi World © Выпуск 2002 - 2004 Автор проекта: ___Nikolay} var fos: TSHFileOpStruct; begin ZeroMemory(@fos, SizeOf(fos)); with fos do begin wFunc := FO_DELETE; fFlags := FOF_SILENT or FOF_NOCONFIRMATION; pFrom := PChar(dir + #0); end; Result := (0 = ShFileOperation(fos)); end; --------- Все грибы съедобны, но некоторые - только раз в жизни

Ответ отправил: Дегтярев Антон Александрович (статус: 4-ый класс) Ответ отправлен: 25.01.2008, 14:07 Оценка за ответ: 5 Комментарий оценки: Спасибо большое! Первый вариант, в принципе подходит. Второй мне известен, но он, к сожалению, не работает. Хорошо, когда человек пишет то, что знает, а не посылает к какой-нибудь статье, т.к. очень часто так ничего не понятно и ничё не работает. Спасибо, целую!

Отвечает: Marked One Здравствуйте, Екатерина Ходеева! В приложении рабочий код. Использованны функции: 1) function DirectoryExists(const Directory: string): Boolean; {Объявленна в модуле SysUtils. Возвращает True если папка существует и False если её нет.} 2) function RemoveDir(const Dir: string): Boolean; {Объявленна в модуле SysUtils. Если папка успешно удалена, то функция вернет True, если неуспешно, то False} Приложение: if DirectoryExists('Dir') then RemoveDir('Dir');

Ответ отправил: Marked One (статус: 3-ий класс) Ответ отправлен: 25.01.2008, 19:00 Оценка за ответ: 5 Комментарий оценки: Огромнейшее вам спасибо! Самый лаконичный, но зато точный, и главное рабочий код!

Отвечает: Genia007 Здравствуйте, Екатерина Ходеева! if not DirectoryExists('E:proba') then exit\ Если есть папка, то выход else if not RemoveDir('E:proba') then showmessage('Ошибка удаления папка не пуста');\ Удаляет пустую папку, если папка не пуста, возвращает false Чтобы удалить вложенную папку процедура RmDir(s:string).

Ответ отправил: Genia007 (статус: 5-ый класс) Ответ отправлен: 27.01.2008, 15:12 Оценка за ответ: 4 Комментарий оценки: Пожалуйста внимательно следите за тем, что пишите. If not DirectoryExists(E:Proba) then exit //если ПАПКИ НЕТ, то выход А так вроде всё нормально. Спасибо!

Вопрос № 120.128

Здравствуете! Подскажите, плиз, как мне сделать в функции проверку в строке 6: если пользователь ввел не 1 символ, а два или вообще его не ввел, то вывести результат = 0. Со String все получается, а как это делается с Char? Приложение: 1. Function ChFirst (Str:string; Ch:char):integer; 2. Var 3. i:integer; 4. Begin 5. If Length(Str)=0 then Begin Result:=0; exit; end; 6. If Length(ch)=0 then Begin Result:=0; exit; end; 7. Result:=0; 8. For i:=1 to Length(Str) do 9. If Str[i]=Ch then 10. begin 11. Result:=i; 12. break; 13. end; 14. end;

Отправлен: 25.01.2008, 15:15 Вопрос задала: Kollisto (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: BlackRaider Здравствуйте, Kollisto! На самом деле с Char все еще проще, на то он и Char т.е. не символ! Туда 2 символа ни как не передать! но если уж очень хочется то можете сделать так описываем переменную типа txt:string ; и с 5 строчки добавляем : txt:=''; txt:=txt+ch; if (length(trim(txt))<>1 then begin Result:=0;exit;end; но повторюсь вы в переменную типа char не сможете запихать более 1 символа

Ответ отправил: BlackRaider (статус: 2-ой класс) Ответ отправлен: 25.01.2008, 15:28 Оценка за ответ: 5

Отвечает: Зиновьев Дмитрий Владимирович Здравствуйте, Kollisto! Дело в том, что char подразумевает под собой хотя бы один символ... Если он не введен, то он равен #0, в противном случае он введен. Вот и делайте проверку: if ch = #0 then begin result := 0; exit; end; А два символа в один никак не попадут.

Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 9-ый класс) Ответ отправлен: 25.01.2008, 17:53 Оценка за ответ: 4

Отвечает: Маренич Владимир Здравствуйте, Kollisto! На самом деле переменные типа Char не могут НЕ СОДЕРЖАТЬ значения. Это всегда ОДИН символ с кодом от 0 до 255. Можно только проверять содержимое с каким-либо значением (напрмер, if ch=#0 then Result:=0). А при преобразовании Char к типу String Вы получите всегда строку длиной в один символ. Думаю в Вашем случае нужно вместо Char использовать String, т.к. предполанаю, что при вводе используется компонент TEdit. Приложение: 1. Function ChFirst (Str:string; Ch:string):integer; 2. Var 3. i:integer; 4. Begin 5. If Length(Str)=0 then Begin Result:=0; exit; end; 6. If Length(Ch)<>1 then Begin Result:=0; exit; end; 7. Result:=0; 8. For i:=1 to Length(Str) do 9. If Str[i]=Ch[1] then 10. begin 11. Result:=i; 12. break; 13. end; 14. end;

Ответ отправил: Маренич Владимир (статус: Студент) Ответ отправлен: 25.01.2008, 17:58 Оценка за ответ: 5

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