Array of Char Frage

[Bernd29bln]

Hallo,

Ich möchte aus einer ini hex werte lesen, das klappt sehr gut. In der ini sind diese Hex werte unterschiedlich lang. bislang hab ich es so gelöst.

Delphi-Quellcode:

var 
  ss:= WideString;
...

ss:= chr(idx[0]) + chr(idx[1]) + chr(idx[2]) + chr(idx[3]) + chr(idx[4]); <---

Wie bekomme ich das dynamischer hin mit ch: array of char z.B.

Weis jemand Rat?

Gruß Bernd

[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]

[Medium]

Wie ist idx definiert, und wie wird es befüllt?

[himitsu]

also rein logisch ginge es natürlich so :zwinker:

Delphi-Quellcode:

ss := '';
for i := 0 to High(idx) do
  ss := ss + chr(idx[i]);

pratisch aber einfach alles kopieren.
! aber Achtung, die Elemente in idx müssen hierfür genauso groß sein wie ein Char.

Delphi-Quellcode:

//SetLength(ss, Length(idx));
//MoveMemory(ss[1], Length(idx) * SizeOf(Char));

ups, hab das WideStirng übersehn

Delphi-Quellcode:

SetLength(ss, Length(idx));
MoveMemory(ss[1], Length(idx) * SizeOf(WideChar));
// bzw.
SetLength(ss, Length(idx));
MoveMemory(ss[1], Length(idx) * 2));

Aber idx[i] muß hier natürlich genau 2 Byte aka SizeOf(WideChar) groß sein

[mkinzler]

Allerdings ist ein WideString kein nativer Delphistring. Deshalb besser mit nativen Typ arbbeiten und dann zuweisen

[himitsu]

Zitat:

Zitat von mkinzler

Allerdings ist ein WideString kein nativer Delphistring. Deshalb besser mit nativen Typ arbbeiten und dann zuweisen

och, der Vorteil von WideString ist, daß er gegenüber von AnsiString/UnicodeString keine Referenzzählung besitzt, also man diesbezüglich mal nix beachten muß :angel2:

[mkinzler]

Ich würde mich aber auf die interne Implementierung nicht verlassen

[Bernd29bln]

Hallo,

Vielen Dank für die Tips.

Ich lese die ini in eine stringlist (sl) ein, dann wird wird sl convertiert in ein integer (idx),
und dieser wiederum dann als chr zum Drucker gesendet das Klappt auch und wird auch ausgeführt.

Nur ebend das es dynamischer werden muss.

Gruß bernd

[mkinzler]

Verwende doch StringList.Text/DelimitedText

[Bernd29bln]

In der ini stehen die hex werte so drin: 1d,33, usw. in der stringlist schreibe ich sie mit commatext und hänge jedem noch ein $ vorne dran um sie dann als integer zu convertieren.

gruß bernd

[himitsu]

Warum nutzt di eigentlich nicht TIniFile + .ReadBinaryStream und ließt es in einen Stream ein ... von dem Stream aus, kannst du es dann dahin schreiben, wie/wo du willst.

[Bernd29bln]

hmmm, hab mich mit binarystream noch nicht so befasst. wie könnte man den das realisieren?

gruß bernd

[himitsu]

Delphi-Quellcode:

var ini: TIniFile;
  stream: TStream;
  S: AnsiString;

stream := TMemoryStream.Create;
try
  ini := TIniFile.Create('name.ini');
  try
    ini.ReadBinaryStream('section', 'ident', stream);
    stream.Position := 0;
    SetLength(S, stream.Size);
    stream.ReadBuffer(S[1], stream.Size);
  finally
    ini.Free;
  end;
finally
  stream.Free;
end;
// in S wären nun die Daten drin

statt einem AnsiString könnte man auch leicht ein Byte-Array oder Dergleichen verwenden

[Bernd29bln]

Das ist ne sehr interessante sache, werd ich mal umsetzen.


Vielen Dank!

Gruß Bernd

[Bernd29bln]

Hallo,

Ich habs mal ausprobiert und ich hab festgestellt das nun S als string behandelt wird. Der Drucker druckt S aus.

Gruß Bernd

[DeddyH]

Zeig doch mal Deinen Code.

[Bernd29bln]

ich verwende den Code von himitsu.

und füge S dann ein

Delphi-Quellcode:

  WriteLn (d,s);

gruß bernd