Erläuterung was "native unicode string" ist?

[torud]

Danke für Dein Beispiel und die anderen belehrenden Hinweise. Ich werde versuchen Sie zu beherzigen.
Ich hatte absichtlich geschrieben, dass ich es dynamisch brauche, weil ich ja mehr als eine Struktur von Inhalten übermitteln muss.

Sagen wir, ich muss ca. 40 verschiedene Grafiken mit unteriedlicher inhaltlicher Struktur anzeigen. Soll ich nun 40 verschiedene Records "bauen"?

Z.B. habe ich auch so was hier am Start:

Delphi-Quellcode:

procedure TForm1.btn_show_matchesClick(Sender: TObject);
var
  i : integer;
begin
  TextString.Add('header='  + ed_header_rounds.Text);

  for i := 1 to 8 do
    begin
      //hier werden 48 inhalte in die strinlist geschrieben
      //geht das auch so einfach mit nem record?
      LogoString.Add('logo_a'+ inttostr(i)+'=' + (FindComponent('cmb_ro_team_a' + inttostr(i)) as TComboBox).Text);
      LogoString.Add('logo_b'+ inttostr(i)+'=' + (FindComponent('cmb_ro_team_b' + inttostr(i)) as TComboBox).Text);
      TextString.Add('team_a'+ inttostr(i)+'=' + (FindComponent('ed_ro_team_a' + inttostr(i)) as TdxDNEdit).Text);
      TextString.Add('team_b'+ inttostr(i)+'=' + (FindComponent('ed_ro_team_b' + inttostr(i)) as TdxDNEdit).Text);
      TextString.Add('result_a'+ inttostr(i)+'=' + (FindComponent('ed_ro_res_a' + inttostr(i)) as TdxDNEdit).Text);
      TextString.Add('result_b'+ inttostr(i)+'=' + (FindComponent('ed_ro_res_b' + inttostr(i)) as TdxDNEdit).Text);
    end;
  TS_AKI_ProviderUC1.ShowGraphic('rounds.gse',1,TextString,LogoString,PropList,0,'IN',True);

end;

Die Komponente weiss im Prinzip nix von alledem und arbeitet nur stur und doof ab, was ich ihr zu füttern gebe. Da liegt meiner Meinung nach der Vorteil. Ich kann völlig frei und flexibel die Stringliste erstellen und übergeben und die Komponente arbeitet alles ab, wenngleich mir auch da schon Probleme auftraten mit falschen Namen in der Stringlist. In dem Punkt bin ich komplett bei Dir.

[jaenicke]

Zitat von torud:

      //geht das auch so einfach mit nem record?

Nein, einfacher.

Delphi-Quellcode:

type
  TDemo = record
    LogoA: array[1..8] of WideString;
    LogoB: array[1..8] of WideString;
    ...
  end;

  MyData.LogoA[i] := (FindComponent('cmb_ro_team_a' + IntToStr(i)) as TComboBox).Text;
  MyData.LogoB[i] := (FindComponent('cmb_ro_team_b' + IntToStr(i)) as TComboBox).Text;

Wobei du solche konstanten Namen wie cmb_ro_team_a am besten als Konstanten deklarierst, dann kannst du Probleme oder Namensänderungen bei Komponenten viel schneller überblicken.

Ganz so dynamisch ist ein Record natürlich nicht, aber es gibt auch variante Records. Leider gehen die wiederum nicht mit WideStrings.

Und ein Dictionary existiert wegen der fehlenden Generics bei deiner alten Delphiversion auch noch nicht. Du würdest dir das Leben an vielen Stellen leichter machen, wenn du dir Delphi XE kaufen würdest.

Das hier müsste aber auch schon bei Delphi 7 gehen...

Delphi-Quellcode:

type
  TTest = (tstOne, tstTwo);

  TExample = record
    DataName: WideString;
    MyData: array[TTest] of WideString;
  end;

var
  MyTest: TExample;
begin
  MyTest.MyData[tstOne] := 'a';
  MessageBoxW(0, PWideChar(MyTest.MyData[tstOne]), 'Test', 0);

Da kannst du auch keine Tippfehler machen und das sollte so ca. dem entsprechen was du an dynamischen Inhalten brauchst.

Insgesamt sieht das ganze aber eher so aus als wären Klassen sehr viel besser geeignet...
Denn da kannst du für die verschiedenen Datentypen entsprechend abgeleitete Klassen erstellen und bist da sehr viel flexibler, kannst aber die Basisfunktionalitäten dennoch gemeinsam kapseln.

[torud]

Hallo Sebastian,

erstmal entschuldigung für die späte antwort. aber da das projekt ziemlich drängt, war ich busy. ich habe in der zwischenzeit eine lösung gefunden, die weiterhin auf Strinlisten beruht.

scheinbar ist so, dass die widestrings der tntcomponente nicht zusammen passen mit den tsringlisten der jcl. ich habe bruno von tms kontaktiert, da die ja die tntcontrols übernommen haben und er hat mir vorgeschlagen es einfach mal mit den TTntStringlist zu versuchen. das hat dann auf anhieb geklappt.

ich bleibe also erstmal, bis ich wieder etwas luft habe, bei der art und weise der internen datenverarbeiteung, wollte dich aber

1. wissen lassen, dass das problem gelöst wurde und
2. dass ich deinen ansatz grundsätzlich gut finde und ich überlege, wie ich das in zukunft für weitere projekte implementieren kann.

also nochmals vielen dank für dein engagement und die angebotene hilfe!