[Solved] Modify resourcestring at runtime

[tk]

Hello,
I need a counterpart for Delphi feature which allows to set resourcestring value at runtime.
Delphi has the LoadResString function which supports the modified resourcestring value (TResStringRec record).
I am not able to find corresponding solution for Lazarus.

The reason is I need to override resourcestring values at runtime.
Any idea?

TK

[JD]

Hi TK,

See this wiki.freepascal.org/Using_resourcestrings

By the way thanks a million for releasing a new version of your Kcontrols suite. As far as I'm concerned KGrid is the best Lazarus grid I know. I use it extensively. However could you please update the documentation or add some more examples demonstrating its usage.

JD

[tk]

Hi,
I know about that general information but it does not solve my problem.
I tried the following:

Code: [Select]

type
  PResStringRec = ^TResStringRec;
  TResStringRec = record
    DefStr: string;
    NewStr: string;
  end;

function ResModIterator(Name, Value: AnsiString; Hash: Longint; arg:pointer): AnsiString;
begin
  if Value = PResStringRec(arg).DefStr then
    Result := PResStringRec(arg).NewStr
  else
    Result := '';
end;

procedure ResMod(const Res: string; const NewValue: string);
var
  Rec: TResStringRec;
begin
  if Res <> '' then
  begin
    Rec.DefStr := Res;
    Rec.NewStr := NewValue;
    SetResourceStrings(ResModIterator, @Rec);
  end;
end;

//calling in code:

resourcestring
  sResString = 'test string';

begin
  ModRes(sResString, 'new test string');
end;


Calling ResMod seems to modify the resourcestring - line "Result := PResStringRec(arg).NewStr"
is called. But later in program I still see the default text...

Because of KGrid we started a new project where we need some other features as TTreeColumn so there will be
most certainly further development.

TK

[Bart]

Can't you use the translations unit?

Bart

[tk]

Thank you for hint, the translations unit uses the same interface from objpas.pas.
The above works for me now, because yesterday I unfortunately tested this with a published string property which was overriden back to the default state from the LFM file.

TK