TResourceStream. Выдергивание моей строки.

[robt]

Сообщение от Человек_Борща

Странно, но это работает....

потому, что все по госту

[GunSmoker]

Эх, не стоило мне спросонья отвечать. Как это я пропустил, что у тебя таблица строк.

Во-первых, в Delphi для загрузки строк есть готовая функция:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := LoadStr(7);
end;

Во-вторых, в отличие от других типов ресурсов, где идентификатор ресурса совпадает с указаным в *.rc файле, строковые ресурсы упаковываются в "пачки".

Посмотри:
http://www.transl-gunsmoker.ru/2008/...post_9202.html

По сути, для загрузки строки номер 7 тебе нужен ресурс номер 7 div 16 + 1 (т.е. 1), а в нём - позиция 7 and 15 (т.е. 7).

В третьих, для загрузки ресурса по ID у TResourceStream есть перегруженный конструктор. А AV вылетал потому что параметр имел тип строки, а не PChar.

Итого, если бы ты захотел написать свой код для загрузки строк - ты бы написал что-то такое:

function LoadStrExample(const ID: Integer): String;
var
  RS: TResourceStream;
  SS: TStringStream;
  Len: Word;
  X: Integer;
begin
  // Bucket
  RS := TResourceStream.CreateFromID(HInstance, ID div 16 + 1, RT_STRING);
  try

    // ID
    RS.ReadBuffer(Len, SizeOf(Len));
    for X := 0 to (ID and 15) - 1 do
    begin
      RS.Position := RS.Position + Len * SizeOf(WideChar);
      RS.ReadBuffer(Len, SizeOf(Len));
    end;

    // Copy str
    SS := TStringStream.Create('', TEncoding.Unicode);
    try
      SS.CopyFrom(RS, Len * SizeOf(WideChar));
      Result := SS.DataString;
    finally
      FreeAndNil(SS);
    end;

  finally
    FreeAndNil(RS);
  end;
end;

Писать свой код имеет смысл в тех случаях, когда ты либо хочешь указывать явно идентификатор языка строки, либо у тебя очень большая строка (подпрограммы последних версий Delphi ограничены 4096 символами, а старые Delphi - 1024, в то время как ресурсная строка может быть размером в 65к символов (или байт? Не уверен)).

В остальных случаях нужно использовать LoadStr или (что лучше) - resourcestring.

[robt]

Сообщение от GunSmoker

Эх, не стоило мне спросонья отвечать.

ыхыхы,стандартная форумская отмазка,спросонья,спохмелья,экран сбликовал ...
признайся что плохо погуглил

[Пепел Феникса]

ыхыхы,стандартная форумская отмазка,спросонья,спохмелья,экран сбликовал ...
признайся что плохо погуглил

не у всех время московское.

[GunSmoker]

И некоторым удобно спать и работать, когда захочется

[Человек_Борща]

По сути, для загрузки строки номер 7 тебе нужен ресурс номер 7 div 16 + 1 (т.е. 1), а в нём - позиция 7 and 15 (т.е. 7).

В чем смысл деления 7 на 17? Вообще зачем это?