Tstrings als VCL

[alcaeus]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SL := TStringList.Create;
  SL.Add('Test1');
  SL.Add('Test2');
  SL.Add('Test3');
end;

Und wo liegt das Problem wenn sie nicht in der DFM liegen? Am Ende landet sowieso alles in der exe :gruebel:
Oder ist es vielleicht zu umständlich, die eine Zeile zu kopieren und die Strings einzufügen?

Greetz
alcaeus

[Stevie]

Zitat:

Zitat von alcaeus

Und wo liegt das Problem wenn sie nicht in der DFM liegen? Am Ende landet sowieso alles in der exe :gruebel:
Oder ist es vielleicht zu umständlich, die eine Zeile zu kopieren und die Strings einzufügen?

khalilazzz hat nach der Lösung über eine Komponente gefragt, womit das geht und oben steht die Lösung, wo ist das Problem??? :stupid:

[Muetze1]

Moin!

Zitat:

Zitat von alcaeus

Und wo liegt das Problem wenn sie nicht in der DFM liegen?

Ein möglicher Grund: er will es übersetzen mit dem integrierten Resourcenübersetzer. Bei deinem Code müsste er explizit ResourcenStrings anlegen und diese Item für Item zuweisen damit dies möglich wird. Fazit: es gibt viele Gründe warum er das so will...

MfG
Muetze1

[jbg]

Zitat:

Zitat von Stevie

Delphi-Quellcode:

property Strings: TStrings read FStrings write FStrings;

Crash mit AV.

Wenn dann schon so:

Delphi-Quellcode:

private
  procedure SetStrings(Value: TStrings);
published
  property Strings: TStrings read FStrings write SetStrings;
end;

procedure TStringsContainer.SetStrings(Value: TStrings);
begin
  FStrings.Assign(Value);
end;

[Stevie]

Das kommt davon, wenn man quick'n'dirty was dahinschmiert! :wall:
Hast natürlich absolut recht. :oops: :pale:

[sniper_w]

Zitat:

Wär das nicht ein bisschen overkill?? :Shocked:

Btw. Es wäre besser, das Thema umzubenennen... In "TStrings als Komponente" :Wink:

OverKill?!? Das kann ich nicht nachvollziehen.

[Stevie]

Zitat:

Zitat von sniper_w

Zitat:

Wär das nicht ein bisschen overkill?? :Shocked:

Btw. Es wäre besser, das Thema umzubenennen... In "TStrings als Komponente" :Wink:

OverKill?!? Das kann ich nicht nachvollziehen.

Naja, vielleicht hab ich mich etwas mit der Wortwahl vergriffen, aber um ein oder mehrere TStrings zu speichern, würde ich keine ListBox auf das Formular packen... (vor allem, wenn du mehr als ein TStrings speichern willst, müsstest du für jedes nen ListBox-Object auf dein Formualr packen! :shock: So wird einfach ein StringContainer-Object aufs Form gepackt und fertig (kann beliebig viele TStrings enthalten, wenn implementiert).