exSheet.Cells[j2+2, i2+1].Value := ListView1.Items[j3].SubItems[i2]; Чтото вот тут,не могу сказать ибо не знаю что происходит с i2 до этого участка.
ListView.Items.Count
FOR
*Double Post*
Ну просил же кнопочки пофиксить :D Держи
MyAdmin- Программа для манипуляции с игровой базой данных MySQL. Обновление от 16.12.10. Возможности: 1.Добавить GM Права 2.Удалить GM Права 3.Начислить Золото 4.Редактировать Аккаунт 5.Заблокировать Аккаунт 6.Удалить Аккаунт 7.Статистика Золота 8.Статистика Заблокированных Аккаунтов 9.Управление GM правами 10.Выполнение Собственных SQL Запросов 11.Появился конфиг-файл,в котором можно хранить свои данные для подключения. *New 12.Русифицированны все колонки в таблицах. *New 13.Добавлять отдельные права теперь удобнее. *New Download Narod Текущая Версия:1.0.5 Будут обновления. (с)Mazzahaka J-Games Dev. Created on C++ Builder. [IMG]
Дай пример какойнибудь базы экселевской хД а то нету на компе. Точнее всю базу (*.xls)
XLS это если я не ошибаюсь это Excel ? На делфи сорцах пример довольно сраный для любителей сделать всё самому,есть вариант куда легче.
Какойто "тру гений" из проверенных решил показать себя.
Ошибка коннекта к базе.
Завтра уберу.
PHP-Интерпритатор,по сути дела особого отношения к программирования не имеет. Delphi-компилируемый язык программирования с кучей плюх и прочей фигни. Это всё равно что сравнить жопу с пальцем.
Мне после делфи привычней на билдере кодить.
Отписываем баги сюда.
MyAdmin Perfect World for MySQL. Как и обещал =) Возможности: 1.Добавить GM Права 2.Удалить GM Права 3.Начислить Золото 4.Редактировать Аккаунт 5.Заблокировать Аккаунт 6.Удалить Аккаунт 7.Статистика Золота 8.Статистика Заблокированных Аккаунтов 9.Управление GM правами 10.Выполнение Собственных SQL Запросов Скрин: [img] Download [hide thank "1"] Narod.Ru[/hide] Текущая Версия:1.0.4 Будут обновления. (с)Mazzahaka J-Games Dev. Created on C++ Builder.
[img] Код программы: unit Unit46; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ActiveX, OleCtrls, SHDocVw, StdCtrls; type TForm46 = class(TForm) Edit1: TEdit; Button1: TButton; Memo1: TMemo; Button2: TButton; WebBrowser1: TWebBrowser; GroupBox1: TGroupBox; GroupBox2: TGroupBox; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form46: TForm46; implementation {$R *.dfm} function GetHTML(WebBrowser: TWebBrowser; ACode: TStrings): Boolean; var ps: IPersistStreamInit; ss: TStringStream; sa: IStream; s: string; begin ps := WebBrowser.Document as IPersistStreamInit; s := ''; ss := TStringStream.Create(s); try sa := TStreamAdapter.Create(ss, soReference) as IStream; Result := Succeeded(ps.Save(sa, True)); if Result then ACode.Add(ss.Datastring); finally ss.Free; end; end; procedure TForm46.Button1Click(Sender: TObject); begin webbrowser1.Navigate('http://www.google.ru'); end; procedure TForm46.Button2Click(Sender: TObject); begin GetHTML(webbrowser1,memo1.Lines); end; procedure TForm46.FormCreate(Sender: TObject); begin end; end.
Сейчас проверю.
Чорт,забыл что у .text тип String.Замени memo1.text на memo1.lines
Через веб броузер такое не прокатит.Используй idhttp.post. Использование: var post:tstringlist;//объявляем переменную массив строк. procedure TForm47.Button1Click(Sender: TObject); begin post.Create(); //Создаём массив строк. post.Add('login=1');//Добавляем в массив запрос,в нём переменной login на html странице будет присвоена еденица. //в post можно добавлять любое число строк(ну не совсем любое но достаточно большое) idhttp1.Post('URL куда отправляем запрос',post); {в 1 параметре адрес куда отправляем запрос, 2 параметр наш массив строк 'post' * Примечание:результат выполнения этой функции можно присвоить переменной чтобы получить ответ Например:otvet:=idhttp1.Post('URL куда отправляем запрос',post)} end; Данный код копипастой работать не будет,создавай обработчик и пихай в него то что в моём. Всё описание в коментах gethtml(webbrowser1,memo1.text); что ругает ?текст ошибки полный давай.
1.Размещаешь на форме (окошке таком хД) компонент twebbrowser (найти можно в поиске компилятора). 2.Размещаешь на форме кнопку,жмёшь по ней 2 раза и ты попадаешь в редактор кода. 3.В том месте куда тебе показал компилятор пиши:twebbrowser.navigate('адрес страницы'); 4.В этом же месте но немного ниже пиши:gethtml(webbrowser1,memo1.text); 5.Компилируй. //UPD Тупанул,в 3 шаге не twebbrowser а webbrowser1 .
Имена участников (разделяйте запятой).
