current_string:=wdDoc.Tables.Item(1).Cell(10,20).Range.Text;
Смущает наличие строки "goto end_of_this
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls, StrUtils ;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
file_name,current_string:string;
wdApp, wdDocs, wdDoc : Variant;
begin
file_name:=ExtractFilePath( Application.ExeName )+'\test.doc';
wdApp := CreateOleObject('Word.Application');
wdApp.Visible := false;
wdDocs := wdApp.Documents;
wdDoc := wdDocs.Open(FileName:=file_name);
current_string:=wdDoc.Tables[1].Cell(10,20).Range.Text;
//current_string:=wdDoc.Tables.Item(1).Cell(10,20).Range.Text;
memo1.lines.add(current_string);
wdApp.Quit;
end;
end.
А где в процитированной строке "item"? К какой строке кода ошибка-то относится? Явно не к этой.
current_string:=wdDoc.Tables[1].Cell(10,20).Range.Text;
file_name:=ExtractFilePath( Application.ExeName )+'\test.doc';
wdApp := CreateOleObject('Word.Application');
wdApp.Visible := false;
wdDocs := wdApp.Documents;
wdDoc := wdDocs.Open(FileName:=file_name);
//Кол-во таблиц
memo1.lines.add(inttostr(wdDoc.Tables.Count));
//Не рабочий код
CurTable:=wdDoc.Tables(1); //Tables - массив....Tables[1]? wdDoc свойства?
current_string:=wdDoc.CurTable.Cell(10,20).Range.Text;
memo1.lines.add(current_string);
Результат работы майнеров - поддержание работоспособности сети.
`user_id` char(255) NOT NULL, причем тут UNSIGNED INT?
символы 255 максимум. Я там храню около 200 символов вида Addf45gfMvrtrQffg......
Уникальный идентификатор пользователя.
может вы об
`id` int(11) NOT NULL, ?
но это число вида 12345678901 - всё нормально же? Целое 11 значное число.
Вот это число и храню.
GRAPH*_active_stock_button - да мало, исправил на char(10) NOT NULL
GRAPH*_graph_colors - нее там строка из кучи цветов. Не один цвет, а много - 6-8-20 штук через тире.
GRAPH*_show_graph_date - целое число. Максимум трехзначное. Исправил на int(3).
Понимаю, что вас смутили имена полей.
JSON массив данных, возможно не плохая идея. Но пока реализовал всё по простому - в БД.
И все же не до конца понимаю что значит char(255)?
char - тип данных, которые планирую хранить.
255? - количество символов этого типа данных? Это надо указывать или нет?
Без указания вроде не принимает/создает поле в phpmyadmin.