Erläuterung was "native unicode string" ist?

[jaenicke]

Zitat von torud:

Muss ich vielleicht bei den TNT-Controls irgendwas am Charset einstellen oder der WideStringlist noch eine spezielle Eigenschaft verpassen?

Dabei kann ich dir leider nicht helfen, da ich Unicode nur in aktuellen Delphiversionen ohne Verrenkungen benutze. Damals in Delphi 7 habe ich nur AnsiStrings benutzt.

Das Problem ist wie du bemerkt hast natürlich, dass die Delphi IDE durch die fehlende Unicodeunterstützung auch keine Unicodestrings beim Debuggen auswerten kann...
Was du versuchen kannst um definitiv festzustellen, ob die Strings falsch sind, ist, dass du diese einfach einmal ausgibst:

Delphi-Quellcode:

MessageBoxW(0, PWideChar(sName), 'Test: sName', 0);
MessageBoxW(0, PWideChar(sValue), 'Test: sValue', 0);

Das sollte auch mit Delphi 7 problemlos funktionieren.

[torud]

Sorry, wenn ich mich dämlich anstelle, aber mein Delphi kennt kein MessageBoxW.

[jaenicke]

Dann fehlt die Unit Windows in der uses Klausel.

[torud]

Jo, jetzt kommen die MessageBoxen.

---------------------------
Test: sValue
---------------------------
Cracoⅵa Kraków
---------------------------
OK
---------------------------

ist der Inhalt. Hier ist auch wieder das vi im Teamnamen so "komisch".

Und so "baue" ich den Code zusammen:

Delphi-Quellcode:

procedure Tmatchid.btn_showClick(Sender: TObject);
begin
  //hinzufügen der strings
  TextString.Add('header='  + ed_header.Text);
  TextString.Add('subline=' + ed_subline.Text);
  TextString.Add('team_a='  + ed_team_a.Text);
  TextString.Add('team_b='  + ed_team_b.Text);
  TextString.Add('footer_1=' + ed_footer_1.Text);
  TextString.Add('footer_2=' + ed_footer_2.Text);
  TextString.Add('footer_3=' + ed_footer_3.Text);
  //schicken der inhalte zum laden der grafik
  form1.TS_AKI_ProviderUC1.ShowGraphic('match_id.gse',1,TextString,LogoString,PropList,0,'IN',True);
end;

Die Messagbox kommt aus einer UnterRoutine von TS_AKI_ProviderUC1.ShowGraphic.
Dort ist alles auf WideString und TWideStringlist eingestellt.

[jaenicke]

Funktioniert es denn, wenn du den Inhalt der Editfelder direkt per MessageBoxW ausgibst?
(Gibt es vielleicht noch eine andere Eigenschaft als Text? Also ist Text wirklich WideString?)

Lass doch den Unsinn mit der TWideStringList weg. Wenn du mehrere Werte nicht einzeln übergeben willst, nimm einen Record. Aber das ganze zu einer Liste verwursten und dann wieder auseinanderzubasteln ist Blödsinn...

[torud]

Hm, ich glaube wir nähern uns dem Ziel, denn

//einzel-ausgabe aus dem Control zeigt mir den Namen korrekt an
MessageBoxW(0, PWideChar(ed_team_a.Text), 'Test: sName', 0);

//stringlist-ausgabe, zeigt mir den Namen verwurschtelt an
MessageBoxW(0, PWideChar(TextString.Text), 'Test: sName', 0);

also ist wohl die stringliste, wie von dir schon vermutet, das problem. jetzt stehe ich natürlich vor nem riesenproblem, weil ich seit ca. 4 jahren alle projekte mit TStringlisten fahre, da sich die daten herrlich sammeln lassen. in der komponente sind ja mehr als eine sub-routine, die alle auf das benutzen der Stringliste abgestimmt sind. Und ganz ehrlich sehe ich gerade den Baum vor lauter Wald nicht. Record ist mir klar, aber eine Liste davon oder einen dynmaischen Record erzeugen, wo ich auch schön den Namen des Objekte und seinen Inhalt übergeben und später einfach auslesen kann, treibt mir gerade viele Fragezeichen über den Kopf.

Grübel...

Und

Zitat von jaenicke:

(Gibt es vielleicht noch eine andere Eigenschaft als Text? Also ist Text wirklich WideString?)

Die Eigenschaft text ist definitiv WideString und nein es gibt keine andere Eigenschaft.

[jaenicke]

Zitat von torud:

jetzt stehe ich natürlich vor nem riesenproblem, weil ich seit ca. 4 jahren alle projekte mit TStringlisten fahre, da sich die daten herrlich sammeln lassen.

Noch herrlicher aber ohne...
Denn der Compiler kann dir dort bei Tippfehlern nicht helfen, so dass sich da leicht versteckte Probleme einschleichen können. Qualitativ guter Quelltext sieht anders aus...

Ein Beispiel nach deinem Quelltext:

Delphi-Quellcode:

type
  TGraphicContents = record
    Header: WideString;
    SubLine: WideString;
    TeamA: WideString;
    TeamA: WideString;
    Footer1: WideString;
    Footer2: WideString;
    Footer3: WideString;
  end;

procedure Tmatchid.btn_showClick(Sender: TObject);
var
  GraphicData: TGraphicContents;
begin
  // Setzen der Daten
  GraphicData.Header := ed_header.Text;
  GraphicData.SubLine := ed_subline.Text;
  GraphicData.TeamA := ed_team_a.Text;
  GraphicData.TeamB := ed_team_b.Text;
  GraphicData.Footer1 := ed_footer_1.Text;
  GraphicData.Footer2 := ed_footer_2.Text;
  GraphicData.Footer3 := ed_footer_3.Text;
  //schicken der inhalte zum laden der grafik
  form1.TS_AKI_ProviderUC1.ShowGraphic('match_id.gse', 1, GraphicData, LogoString, PropList, 0, 'IN', True);
end;

Ganz nebenbei zum Stil:
Unterstriche in Bezeichnern sind äußerst unüblich, es gibt auch Groß- und Kleinschreibung. Statt ed_header wäre edHeader oder edtHeader schöner (auch wenn manche die ungarische Notation an sich schlecht finden, ich finde sie bei Komponenten sehr sinnvoll).