Search options (Page 43 of 68)

notice - это у ВАс библиотека? есла да, то изменять в этой таблице данные не правельно, значение строки измнится для всех  ссылающихся записей

var
sId:string;
begin
  sId:= SQLEXecute('SELECT id_notice FROM request  WHERE  id=' +frmMain.TableGrid1.sqlValue );
  SQLEXecute('UPDATE notice SET setNotice="'+frmAddNote.Edit1.Text+'" WHERE id=' +sId);
  frmMain.TableGrid1.dbUpdate;
end;

request.id_notice где поле id_notice уже содержит id записи из таблицы notice

получить последнею запись

maxID := IntToStr(Last_Insert_id);

получить последнею запись в конкрентой таблице

 maxID := SQLExecute('SELECT MAX(id) FROM b');

ну, да, а что именно вы хотите получить?

глобальная переменная указывается в начале листинга вашего скрипта

var
переменная:тип переменной;
 
глобальная переменная может вызываться и использоваться в любой процедуре..

процедера (*********);
begin
переменная:=значение;
end;

 
 
Локальная переменнная вызывается в процедуре и может использоваться только в пределах этой процедуры

процедера (*********);
var
переменная:тип переменной;
begin
переменная:=значение;
end;

.

поробуйте MessageBox

пример

if IDYES = MessageBox('Ваш текст','Ваш заголовок', MB_YESNO+MB_ICONINFORMATION) then showmessage('Вы нажали ДА ! теперь Вы должны банку!');

Buttons:
MB_OK
MB_OKCANCEL
MB_ABORTRETRYIGNORE
MB_YESNOCANCEL
MB_YESNO
MB_RETRYCANCEL

Results:
IDOK
IDCANCEL
IDABORT
IDRETRY
IDIGNORE
IDYES
IDNO

Icons
MB_ICONWARNING
MB_ICONINFORMATION
MB_ICONASTERISK
MB_ICONQUESTION
MB_ICONSTOP
MB_ICONERROR

загружаем объект json
получаем объект "sms"
получаем объект "70000000000"
получаем ключ "status_code"

понятно тоесть я пытался получать масив
JsonArray:=TJSONArray(JSONObject.GetPairByName('sms').JsonValue);

что есть не правельно
но я всеравно не могу получить объек из объекта

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
sl:TStringList;
JSONObject, JSONObjProp, JSONObjProp2: TJSONObject;
JSONString: TJSONString;
begin
  sl:=TStringList.Create;
  JSONObject := nil;
  sl.Text:='{"status": "OK", "status_code": 100, "sms": {"70000000000": {"status": "ERROR", "status_code": 232, "status_text": "Превышен лимит одинаковых сообщений на этот номер в день" } }, "balance": 10 }';
  JSONObject:=TJSONObject(TJSONObject.ParseJSONValue(sl.Text));
  if JSONObject <> nil then
   begin
   JSONObjProp := TJSONObject( TJSONObject.GetPairByName('sms').JsonValue);
   JSONObjProp2 := TJSONObject( JSONObjProp.GetPairByName('70000000000').JsonValue);
   JSONString := TJSONString(JSONObjProp2.GetPairByName('status_code').JsonValue);
   ShowMessage(JSONString.Value);
 end;
end;

+ IntToStr()+ - Тут Вы переводите из числового в строковое

+ StrToInt()+ Тут Вы переводите из строкового в числовое

Integer - целые числа

String - строковая переменная

ошибка, может я не правельно сохраняю документ?

procedure FrmHelp_RichEdit1_OnChange (Sender: TObject);
begin
  SQLEXecute('UPDATE  help SET richDescription= "'+FrmHelp.RichEdit1.TextRTF+'" WHERE id=' + FrmHelp.TreeView1.sqlValue);
end;

спасибо...
Возникла еще проблема
когда я передаю запрос через программу получаю {"success":false,"data":null,"message":"Method not found."}
но если я вбиваю это в адресной строке {"success":true,"data":null,"message":"Successful authorization."}

подскажите в чем может быть проблема

нужна возможнасть создание собственных гиперссылок на компоненты в RichEdit

вижу это так

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
  Form1.RichEdit1.HiperLinkWrite(Form1.RichEdit1.GetSelText,Form1.TreeView.SelectedRow:=1;)
end;

где
1.Текст к которому присваевается ссылка
2.Действие ссылки