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

Выпуск № 1189
от 23.09.2008, 00:35

Вопрос № 144.164

Здравствуйте ув. Эксперты. Помогите разобраться. Присваиваю ячейке в Excel из Delphi формулу таким методом ExcelWorksheet1.Cells.FormulaR1C1.Item[i,3]:='=СУММ('+tmp+')'; или таким ExcelWorksheet1.Cells.FormulaR1C1.Item[i,3].Formula:='=ÑÓÌÌ('+tmp+')'; а в Excel пишет так #ИМЯ?, но если в самом Excel стать на эту ячейку и нажать Enter, то формула работает. Как сделать так, чтобы это было сразу автоматически? И еще, меняю формат вывода действительных чисел таким методом Excelworksheet1.Range['B1:G100', EmptyParam].NumberFormat := '0.00'; но выдает ошибку Нельзя установить свойство Numder Format класса Range, хотя тут написано, что все должно работать http://www.citforum.ru/programming/windows/excel_faq/part3.shtml#3.10 Спасибо.

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

Отвечает: Шичко Игорь Здравствуйте, Пустовойтенко Виктор Григорьев! По первому вопросу: В Delphi используются несколько иные функции от Excel, например для суммы: ...Formula:= '=SUM(E1:E3)'; По второму вопросу: ...NumberFormat := '0,00'; В приложении код небольшой программы для анализа формата ячейки. Работать с ним: Создаете пустой файл C:1.xls, устанавливате формат ячейки a1 к примеру числовой с 2-мя знаками после запятой. Запускаете программу, нажимаете на кнопку, в поле Edit1 отобразится формат ячейки a1. ('0,00'). Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComObj; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Excel: variant; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Workbook, Sheet: variant; begin Excel:=CreateOleObject('Excel.Application'); Excel.DisplayAlerts:=False; Workbook:=Excel.Workbooks.Open('C:1.xls'); Sheet:= WorkBook.ActiveSheet; Edit1.Text:= Sheet.Range['a1'].NumberFormat; Workbook.Close; Excel.Quit; Excel:= UnAssigned; end; end.

Ответ отправил: Шичко Игорь (статус: 3-ий класс) Ответ отправлен: 17.09.2008, 12:00 Оценка за ответ: 5 Комментарий оценки: Спасибо, все работает. Это как раз то, что мне было нужно.

Вопрос № 144.215

Была у меня прога, которая выключала комп после окончания плейлиста или через определённое кол-во треков. С новой версией винампа (5.52) она работать не захотела, так я решил сам написать такую прогу, заодно и делфи подучить. Помогите с кодом, а?

Отправлен: 17.09.2008, 18:51 Вопрос задал: Venchik (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Олекса aka SoW Здравствуйте, Venchik! В приложении приведен код модуля, с помощью которого можно программно управлять WinAmp'ом. Здесь пример приложения, которое использует етот модуль: http://fileshare.in.ua/1214689 Описание всех возможных действий по управлению WinAmp'ом есть на оффициальном сайте разработчика: http://download.nullsoft.com/winamp/beta/WA5.34_SDK.exe Приложение: (* This unit will allow control of Nullsofts Winamp 1.x or higher * from within Delphi 2 & 3 Applications. This unit is FREEWARE; if you * like it or have any questions about it let me know emslie@gpu.srv.ualberta.ca *) unit WAInt; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, FileCtrl, StdCtrls, Spin; Const {WM_WA_IPC = WM_USER;} IPC_GETVERSION = 0; IPC_PLAYFILE = 100; IPC_DELETE = 101; IPC_STARTPLAY = 102; IPC_CHDIR = 103; IPC_ISPLAYING = 104; IPC_GETOUTPUTTIME = 105; IPC_JUMPTOTIME = 106; IPC_WRITEPLAYLIST = 120; WINAMP_OPTIONS_EQ = 40036; WINAMP_OPTIONS_PLEDIT = 40040; WINAMP_VOLUMEUP = 40058; WINAMP_VOLUMEDOWN = 40059; WINAMP_FFWD5S = 40060; WINAMP_REW5S = 40061; WINAMP_BUTTON1 = 40044; WINAMP_BUTTON2 = 40045; WINAMP_BUTTON3 = 40046; WINAMP_BUTTON4 = 40047; WINAMP_BUTTON5 = 40048; WINAMP_BUTTON1_SHIFT = 40144; WINAMP_BUTTON2_SHIFT = 40145; WINAMP_BUTTON3_SHIFT = 40146; WINAMP_BUTTON4_SHIFT = 40147; WINAMP_BUTTON5_SHIFT = 40148; WINAMP_BUTTON1_CTRL = 40154; WINAMP_BUTTON2_CTRL = 40155; WINAMP_BUTTON3_CTRL = 40156; WINAMP_BUTTON4_CTRL = 40157; WINAMP_BUTTON5_CTRL = 40158; WINAMP_PREVSONG = 40198; WINAMP_FILE_PLAY = 40029; WINAMP_OPTIONS_PREFS = 40012; WINAMP_OPTIONS_AOT = 40019; WINAMP_HELP_ABOUT = 40041; procedure AddMp3ToPlayList(mp3ToAdd:string); Procedure DeletePlayList; Procedure StartPlay; Procedure ChangeDir(DirToChangeTo:string); Function PlayBackStatus : integer; { IPC_ISPLAYING returns the status of playback. If it returns 1, it is playing. if it returns 3, it is paused, if it returns 0, it is not playing. If it returns something other than 1,3,or 0, something is screwed. } Function GetOutPutTime( x : integer): Integer; { IPC_GETOUTPUTTIME returns the position in milliseconds of the current song (lParam = 0), or the song length, in seconds (lParam = 1). Returns -1 if not playing or error.} function JumpToTime(new_song_pos:integer):integer; { *ONLY AVAILABLE IN v1.60+* IPC_JUMPTOTIME sets the position in milliseconds of the current song (approximately) Returns -1 if not playing, 1 on eof, or 0 if successful } Function WritePlaylist : Integer; { *ONLY AVAILABLE IN v1.666+* IPC_WRITEPLAYLIST writes the current playlist to <winampdir>\Winamp.pl } // THESE MIGHT CHANGE in the future :) //Also, you can send standard WM_COMMAND messages to the Winamp window (for other controls), including // Send using SendMessage(hwnd_winamp,WM_COMMAND,WINAMP_OPTIONS_EQ/*orwhatever*/,0); Procedure EQ; // toggles the EQ window Procedure PlayList; // toggles the playlist window Procedure VolumeUp; // turns the volume up a little Procedure VolumeDown; // turns the volume down a little Procedure Forward5; // fast forwards 5 seconds Procedure Rewind5; // rewinds 5 seconds // the following are the five main control buttons, with optionally shift or control pressed // (for the exact functions of each, just try it out) Procedure Button1; Procedure Button2; Procedure Button3; Procedure Button4; Procedure Button5; Procedure Button1_Shift; Procedure Button2_Shift; Procedure Button3_Shift; Procedure Button4_Shift; Procedure Button5_Shift; Procedure Button1_CTRL; Procedure Button2_CTRL; Procedure Button3_CTRL; Procedure Button4_CTRL; Procedure Button5_CTRL; Procedure PrevSong; // always goes to the previous song (unlike button 1), 1.666+ Procedure PopUpLoadFile; // pops up the load file(s) box Procedure PopUpPreferences; // pops up the preferences Procedure AlwaysOnTop; // toggles always on top Procedure PopUpAboutBox; // pops up the about box :) Procedure Terminate; // closes winamp (added Aug 31 1998) implementation Var hWnd_WinAmp : hWnd; Procedure GethWnd_WinAmp; Begin hwnd_winamp := FindWindow('Winamp v1.x', nil); End; {Procedure GetVersion; Begin IPC_GETVERSION is sent to the window, and the return value is the version Version 1.55 = 0x1551 Version 1.6b = 0x16A0 Version 1.60 = 0x16AF Version 1.61 = 0x16B0 Version 1.62 = 0x16B1 Version 1.64 = 0x16B3 Version 1.666 = 0x16B4 Version 1.69 = 0x16B5 Version 1.70 = 0x1700 Version 1.72 = 0x1702 Version 1.72 = 0x1703 ... the command_data parameter is 0. so, if (SendMessage(hwnd_winamp,WM_WA_IPC,0,IPC_GETVERSION) != 0x1551) MessageBox(NULL,"Error, Winamp 1.55 not found","Warning",MB_OK); end;} procedure AddMp3ToPlayList(mp3ToAdd:string); Var x : integer; begin Mp3ToAdd:=MP3ToAdd+#0; GethWnd_WinAmp; for x:=0 to Length(MP3ToAdd) do PostMessage(hwnd_winamp,wm_user,ord(mp3toadd[x]),IPC_PLAYFILE); PostMessage(hwnd_winamp,wm_user,0,IPC_PLAYFILE); end; Procedure DeletePlayList; begin GethWnd_WinAmp; SendMessage(hwnd_winamp,WM_USER,0,IPC_DELETE); end; Procedure StartPlay; begin GethWnd_WinAmp; SendMessage(hwnd_winamp,WM_USER,0,IPC_STARTPLAY); end; Procedure ChangeDir(DirToChangeTo:string); Var x : integer; begin DirToChangeTo:=DirToChangeTo+#0; GethWnd_WinAmp; for x:=0 to Length(DirToChangeTo) do PostMessage(hwnd_winamp,wm_user,ord(DirToChangeTo[x]),IPC_CHDIR); PostMessage(hwnd_winamp,wm_user,0,IPC_CHDIR); end; Function PlayBackStatus : integer; { IPC_ISPLAYING returns the status of playback. If it returns 1, it is playing. if it returns 3, it is paused, if it returns 0, it is not playing. If it returns something other than 1,3,or 0, something is screwed. } Begin GethWnd_WinAmp; PlayBackStatus:= SendMessage(hwnd_winamp,WM_USER,0,IPC_ISPLAYING); End; Function GetOutPutTime( x : integer): Integer; { IPC_GETOUTPUTTIME returns the position in milliseconds of the current song (lParam = 0), or the song length, in seconds (lParam = 1). Returns -1 if not playing or error.} begin GethWnd_WinAmp; GetOutPutTime := SendMessage(hwnd_winamp,WM_USER,x,IPC_GETOUTPUTTIME); end; function JumpToTime(new_song_pos:integer):integer; { *ONLY AVAILABLE IN v1.60+* IPC_JUMPTOTIME sets the position in milliseconds of the current song (approximately) Returns -1 if not playing, 1 on eof, or 0 if successful } Begin GethWnd_WinAmp; JumpToTIme:=SendMessage(hwnd_winamp,WM_USER,new_song_pos,IPC_JUMPTOTIME); End; Function WritePlaylist : Integer; { *ONLY AVAILABLE IN v1.666+* IPC_WRITEPLAYLIST writes the current playlist to <winampdir>\Winamp.pl } Begin GethWnd_WinAmp; WritePlayList := SendMessage(hwnd_winamp,WM_USER,0,IPC_WRITEPLAYLIST); { (cursong is the index of the current song in the playlist) } End; // THESE MIGHT CHANGE in the future :) //Also, you can send standard WM_COMMAND messages to the Winamp window (for other controls), including // Send using SendMessage(hwnd_winamp,WM_COMMAND,WINAMP_OPTIONS_EQ/*orwhatever*/,0); Procedure ExecuteMessage(MessageToExecute:integer); Begin GethWnd_WinAmp; SendMessage(hwnd_winamp,WM_COMMAND,MessageToExecute,0); End; Procedure EQ; // toggles the EQ window Begin ExecuteMessage(WINAMP_OPTIONS_EQ); End; Procedure PlayList; // toggles the playlist window Begin ExecuteMessage(WINAMP_OPTIONS_PLEDIT); End; Procedure VolumeUp; // turns the volume up a little begin ExecuteMessage(WINAMP_VOLUMEUP); End; Procedure VolumeDown; // turns the volume down a little Begin ExecuteMessage(WINAMP_VOLUMEDOWN); End; Procedure Forward5; // fast forwards 5 seconds Begin ExecuteMessage(WINAMP_FFWD5S); End; Procedure Rewind5; // rewinds 5 seconds begin ExecuteMessage(WINAMP_REW5S); End; // the following are the five main control buttons, with optionally shift or control pressed // (for the exact functions of each, just try it out) Procedure Button1; Begin ExecuteMessage(WINAMP_BUTTON1); End; Procedure Button2; Begin ExecuteMessage(WINAMP_BUTTON2); End; Procedure Button3; Begin ExecuteMessage(WINAMP_BUTTON3); End; Procedure Button4; Begin ExecuteMessage(WINAMP_BUTTON4); End; Procedure Button5; Begin ExecuteMessage(WINAMP_BUTTON5); End; Procedure Button1_Shift; Begin ExecuteMessage(WINAMP_BUTTON1_SHIFT); End; Procedure Button2_Shift; Begin ExecuteMessage(WINAMP_BUTTON2_SHIFT); End; Procedure Button3_Shift; Begin ExecuteMessage(WINAMP_BUTTON3_SHIFT); End; Procedure Button4_Shift; Begin ExecuteMessage(WINAMP_BUTTON4_SHIFT); End; Procedure Button5_Shift; Begin ExecuteMessage(WINAMP_BUTTON5_SHIFT); End; Procedure Button1_CTRL; Begin ExecuteMessage(WINAMP_BUTTON1_CTRL); End; Procedure Button2_CTRL; Begin ExecuteMessage(WINAMP_BUTTON2_CTRL); End; Procedure Button3_CTRL; Begin ExecuteMessage(WINAMP_BUTTON3_CTRL); End; Procedure Button4_CTRL; Begin ExecuteMessage(WINAMP_BUTTON4_CTRL); End; Procedure Button5_CTRL; Begin ExecuteMessage(WINAMP_BUTTON5_CTRL); End; Procedure PrevSong; Begin ExecuteMessage(WINAMP_PREVSONG); // always goes to the previous song (unlike button 1), 1.666+ End; Procedure PopUpLoadFile; // pops up the load file(s) box Begin ExecuteMessage(WINAMP_FILE_PLAY); End; Procedure PopUpPreferences; // pops up the preferences Begin ExecuteMessage(WINAMP_OPTIONS_PREFS); End; Procedure AlwaysOnTop; // toggles always on top Begin ExecuteMessage(WINAMP_OPTIONS_AOT); End; Procedure PopUpAboutBox; // pops up the about box :) Begin ExecuteMessage(WINAMP_HELP_ABOUT); End; Procedure Terminate; Begin GetHWnd_WinAmp; SendMessage(HWnd_WinAmp, WM_DESTROY, 0,0); // closes WinAmp End; end. --------- Вiк живи - вiк учись.

Ответ отправил: Олекса aka SoW (статус: 3-ий класс) Ответ отправлен: 18.09.2008, 14:26 Оценка за ответ: 5

Вопрос № 144.250

есть строка, к которой слова разделены пробелами (слов может быть много) например: Мама мыла раму как получить любое слово по порядковому номеру ну например что-то там [0] - будет Мама

Отправлен: 17.09.2008, 23:22 Вопрос задал: source (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Шичко Игорь Здравствуйте, source! В приложении - функция определения слова в сроке по его номеру. Использование: Str - строка; Smb - разделитель слов (например пробел: ' ') WordNmbr - номер слова. Пример использования: word[1]:= GetWord('Мама мыла раму'; ' '; 1); Возвратит word[1] равное 'Мама'. Приложение: function GetWord(Str, Smb: string; WordNmbr: Byte): string; var SWord: string; StrLen, N: Byte; begin StrLen := SizeOf(Str); N := 1; while ((WordNmbr >= N) and (StrLen <> 0)) do begin StrLen := Pos(Smb, str); if StrLen <> 0 then begin SWord := Copy(Str, 1, StrLen - 1); Delete(Str, 1, StrLen); Inc(N); end else SWord := Str; end; if WordNmbr <= N then Result := SWord else Result := ''; end;

Ответ отправил: Шичко Игорь (статус: 3-ий класс) Ответ отправлен: 18.09.2008, 07:41 Оценка за ответ: 5

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