Forum: Object-Pascal / Delphi-Language
by torud,
14. Jul 2011
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...
Forum: Object-Pascal / Delphi-Language
by torud,
11. Jul 2011
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...
Forum: Object-Pascal / Delphi-Language
by torud,
11. Jul 2011
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...
Forum: Object-Pascal / Delphi-Language
by torud,
11. Jul 2011
Jo, jetzt kommen die MessageBoxen.
---------------------------
Test: sValue
---------------------------
Cracoⅵa Kraków
---------------------------
OK
---------------------------
Forum: Object-Pascal / Delphi-Language
by torud,
11. Jul 2011
Sorry, wenn ich mich dämlich anstelle, aber mein Delphi kennt kein MessageBoxW.
Forum: Object-Pascal / Delphi-Language
by torud,
11. Jul 2011
Also ich habe testhalber mal den Code so angepasst:
var
i : integer;
sName, sValue : WideString;
begin
...
for i := 0 to TextString.Count - 1 do begin
sName := TextString.Names;
Forum: Object-Pascal / Delphi-Language
by torud,
11. Jul 2011
TextString.ValueFromIndex gibt es nicht in einer TWideStringlist;
aber trotzdem danke für den Optimierungsversuch.
Forum: Object-Pascal / Delphi-Language
by torud,
9. Jul 2011
Nur, um kurz mal sicher zu gehen.
Du meinst, ich soll mir die 2 übermittelten Werte jeweils in einer WideString-Variablen zwischenspeichern und dann der TLB-Funktion übergeben?
Wäre dabei was anders?
Oder soll ich mir das dann loggen?
Was ist der Hintergrund Deines Vorschlags?
Forum: Object-Pascal / Delphi-Language
by torud,
8. Jul 2011
Also ich habs jetzt mal überprüft.
Der Aufruf in der TLB_Unit sieht so aus:
procedure set_(const address: WideString; const attrName: WideString; value: OleVariant); safecall;
Sprich ich übergebe den Namen des Objektes, dann den Typ (text) und dann den Inhalt des Objektes.
Der Aufruf dieser Procedure in meiner Komponente läuft so ab:
Forum: Object-Pascal / Delphi-Language
by torud,
7. Jul 2011
ich checks mal und melde mich dann wieder.
danke erstmal soweit.