Resourcestring laden

[Neutral General]

Hi^^

Also

eine Unit:

Delphi-Quellcode:

unit Unit1;

interface

uses NVCLForms;

type
  TForm1 = class(TNVCLForm)
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

{$R FormCreate.res}

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
// Code
end;

end.

andere Unit:

Delphi-Quellcode:

unit NVCLForms;

//...

constructor TNVCLForm.Create(AParent: TNVCLControl);
var resStr: String;
begin
  // resourcestring laden
  // bisher so:
  SetLength(resStr,High(Byte));
  LoadString(hInstance,0,@resStr[1],255); // String wird geladen, geht aber nur mit .res datei
  Trim(resStr);
end;

// ...

end.

Und weil das wie gesagt mit ner .rc/.res Datei zu nervig ist wollte ichs so machen:

Delphi-Quellcode:

unit Unit1;

interface

uses NVCLForms;

type
  TForm1 = class(TNVCLForm)
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

resourcestring
  FormCreate = 'FormCreate';

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
// Code
end;

end.

Delphi-Quellcode:

unit NVCLForms;

//...

constructor TNVCLForm.Create(AParent: TNVCLControl);
var resStr: String;
begin
  // resourcestring laden
  -->???????<--
end;

// ...

end.

Gruß
Neutral General