Wie wandle ich einen String in ein TXSString um?

[ettekite]

Hallo zusammen,
ich muss für einen API-Aufruf einen Parameter übergeben. In meinem Fall ist das ein TXSString, dem ich nun die Eingabe eines Edit-Feldes zuweisen möchte.

Hat einer eine Idee wie das geht? Bei Integer gibt es eine spezielle Funktion, aber beim Sting bekomme ich das einfach nicht hin!

Vielen Dank für Eure Uterstützung!

Gruß,
Ettekite

[Bernhard Geyer]

NativeToXS

[ettekite]

Das dachte ich auch, klingt auch plausibel. Allerdings erwartet das Ding keinen Parameter und als Beschreibung zeigt Dein Link folgendes an: Gibt einen String zurück, der den Wert einer TXSString-Instanz repräsentiert.

Das klingt irgendwie genau andersherum, oder?

Könntest Du mir dazu eventuell ne Codezeile geben? Ich bekomme das damit näcmlich nicht hin.

Gruß,
Ettekite

[himitsu]

Zitat:

Das klingt irgendwie genau andersherum, oder?

Wie wäre es, wenn du es dann einfach andersrum versuchst?
Die Klasse hat 2 Methoden davon ... Eine zum Einlesen und Eine zum Auslesen.

(beim NativeToXS wurde sogar XSToNative erwähnt und da steht doch bestimmt eine passendere Beschreibung)

[Sir Rufo]

Hier liegt beim TE wohl ein Verständnis-Problem vor.

TXSString ist eine Klasse und kein einfacher Variablentyp wie string, integer oder float.

[ettekite]

Hm, bei TXSInteger kann ich dem Ding einen Integer übergeben, aber bei den TXSStrings funktioniert das eben nicht.

Ich habe es mit XSToNative und NativeToXS probiert, bekomme es aber in beiden Fällen nicht hin.

Falls mir jemand eine Zeile Code geben könnte, wäre ich wirklich dankbar...

Herzliche Grüße,
Ettekite

[Sir Rufo]

Hier ein wenig Code

Delphi-Quellcode:

procedure TfrmViewMain.Button1Click( Sender : TObject );
var
  xint :  TXSInteger;
  xstr :  TXSString;
  xbool : TXSBoolean;
begin
  xint := TXSInteger.Create;
  try
    xint.AsInteger := 20; // Wert zuweisen
    ShowValue( xint );
  finally
    xint.Free;
  end;

  xbool := TXSBoolean.Create;
  try
    xbool.AsBoolean := True; // Wert zuweisen
    ShowValue( xbool );
  finally
    xbool.Free;
  end;

  xstr := TXSString.Create;
  try
    xstr.XSToNative( 'hallo' ); // Wert zuweisen =:o)
    ShowValue( xstr );
  finally
    xstr.Free;
  end;
end;

procedure TfrmViewMain.ShowValue( Value : TRemotableXS );
begin
  ShowMessage( Value.NativeToXS );
end;

Man könnte fast meinen, dass bei TXSString die Property AsString fehlt.