Считывание объявлений

[leonbratsk]

И еще как можно сделать ссылку к объявлению, зная ID?

Продам Samsung gt-s5230

Тут не ID объявления.. а что-то другое..

[Maxim Mirgorodsky]

Это ID, только в 16-ричном виде (HEX).

[leonbratsk]

Это ID, только в 16-ричном виде (HEX).

fTextToAnsiString(IntToHex(cID,0))
Пробовал. Пишет "Объявление не найдено."
Пробовал так же через калькулятор вручную переводить, имеет ли значение регистор?

И второй момент, который я заметил недавно.

Удаление объявления
ID: 1102
Блок данных: число(ID объявления)

Зачем получать ID, если его уже не существует? Могли бы хоть информацию прикрепить какую-нибудь. Допустим нужно было узнать какое объявление было удалено, хотя бы его название. Ищем по всем объявлениям данный ИД, но его нету, так как объявления удалено.
В итоге, что бы узнать какое объявление было удалено нужно при создании объявления сохранять где-то информацию о нем, а при удалении объявления вытягивать её от туда и стирать эту информацию.

[CrazyVirus]

Это ID, только в 16-ричном виде (HEX).

fTextToAnsiString(IntToHex(cID,0))
Пробовал. Пишет "Объявление не найдено."
Пробовал так же через калькулятор вручную переводить, имеет ли значение регистор?

Полученное значение нужно перевернуть. Например, если в хексе FFEEDDCC, то надо инвертировать в CCDDEEFF.

[leonbratsk]

Спасибо все заработало. Выложу код, может кому-то потребуется.

function IDbulletin(nomer: integer): string;
var
obrabotka: string;
k:integer;
begin
obrabotka:=InttoHex(nomer,0);
for k := 1 to 4 do
begin
Result:=Copy(obrabotka,k*2-1,2)+Result;
end;

[Maxim Mirgorodsky]

Это ID, только в 16-ричном виде (HEX).

fTextToAnsiString(IntToHex(cID,0))
Пробовал. Пишет "Объявление не найдено."
Пробовал так же через калькулятор вручную переводить, имеет ли значение регистор?

И второй момент, который я заметил недавно.

Удаление объявления
ID: 1102
Блок данных: число(ID объявления)

Зачем получать ID, если его уже не существует? Могли бы хоть информацию прикрепить какую-нибудь. Допустим нужно было узнать какое объявление было удалено, хотя бы его название. Ищем по всем объявлениям данный ИД, но его нету, так как объявления удалено.
В итоге, что бы узнать какое объявление было удалено нужно при создании объявления сохранять где-то информацию о нем, а при удалении объявления вытягивать её от туда и стирать это информацию.

Хорошо, расширим информативность в сл. версии.

[-=SJ=-]

Спасибо все заработало. Выложу код, может кому-то потребуется.

function IDbulletin(nomer: integer): string;
var
obrabotka: string;
k:integer;
begin
obrabotka:=InttoHex(nomer,0);
for k := 1 to 4 do
begin
Result:=Copy(obrabotka,k*2-1,2)+Result;
end;

Гораздо эффективнее было бы развернуть байты в Nomer перед конвертацией в строку

Код: Выделить всё

function IDbulletin(Nomer: integer): string;
var pNomer : PByte;
    bTemp : Byte;
begin
  pNomer := PByte(@Nomer);

  bTemp := pNomer^;
  pNomer^ := (pNomer+3)^;
  (pNomer+3)^ := bTemp;

  bTemp := (pNomer+1)^;
  (pNomer+1)^ := (pNomer+2)^;
  (pNomer+2)^ := bTemp;

  Result := IntToHex(Nomer, 8);
end;