Array of Char --> String: Zusätzliches $ wird angehangen ...

**Zacherl**

Hi,

ich habe folgenden Source, um einen String mit der LHA5Unit zu dekomprimieren:

Delphi-Quellcode:

			var

  instream,

  outstream: tmemorystream;

  tmcontent2: array of char;

  i: integer;

begin

    inStream := TMemoryStream.Create;

    outStream := TMemoryStream.Create;

    //try

      inStream.Write(TmContent[1], length(TmContent));

      inStream.Position := 0;

      LHAExpand(inStream, outStream);

      outStream.Position := 0;

      setLength(TmContent2, outStream.Size);

      outStream.Read(TmContent2[0], outStream.Size);

      TmContent := String(PChar(TmContent2));

      setLength(TmContent2, 0);

    //finally

      inStream.Free;

      outStream.Free;

    //end;

    tmcontent := copy(tmcontent, 1, length(tmcontent));

end.

War nur ein Test, deshalb ist der Source nicht so schön formatiert, sorry. Das Problem ist folgendes: Am Ende steht in TmContent zwar der dekomprimierte String, allerdings wird ein $ angehangen. Wenn ich mit Copy das letzte Zeichen entferne, wird das $ zwar entfernt, aber auch das letzte Zeichen

Florian

**mkinzler**

Was steht den in tmcontent2?

**Zacherl**

Am Ende, bevor ich nach String typecaste?

**3_of_8**

Schau dir das ganze mal mit dem Evaluator durch, wann genau das $ dazukommt.

**alzaimar**

Um das letzte Zeichen zu entfernen, ist es viel schneller, wenn man die Länge dekrementiert:
SetLengh (MyString, Length (MyString) - 1); Soweit ich das weiss, ist es besser, man verwendet StrPas, um einen PChar in einen String zu konvertieren, kann mich aber irren (Delphi ist grad nicht an).

**3_of_8**

StrPas ist mittlerweile unnötig, weil PChars von Compiler implizit umgewandelt werden.

**Zacherl**

Also bei StrPas bekomme ich den Fehler: inkompatible Typen Array und Char.

Im TmContent2 steht das $ auch schon drinnen. Als letztes Zeichen. Ich versuche es einfach mal daraus zu entfernen, indem ich die Länge decrementiere.

**Zacherl**

Komischerweise geht das beides nicht. Sowohl wenn ich vor dem Typecast nach String die Länge vom TmContent2 dekrementiere, also auch, wenn ich nach dem Typecast TmContent dekrementiere, fehlt das $ und aber auch das letzte Zeichen ...

**alzaimar**

Florian,

verwende doch einfach mal ein TStringStream. Dort hinein liest du erstmal den dekomprimierten Stream, und prüfst dann die Eigenschaft 'DataString'...

**Zacherl**

Ich würde gerne ohne die Classes Unit auskommen. Meine TMemoryStreams sind selbst definierte Typen, von denen der Fehler allerdings mit 100%er Sicherheit nicht herkommt ...

Themen-Optionen	Thema durchsuchen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen	Thema durchsuchen: Erweiterte Suche
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Array of Char --> String: Zusätzliches $ wird angehangen ...

Array of Char --> String: Zusätzliches $ wird angehangen

Re: Array of Char --> String: Zusätzliches $ wird angehan

Re: Array of Char --> String: Zusätzliches $ wird angehan

Re: Array of Char --> String: Zusätzliches $ wird angehan

Re: Array of Char --> String: Zusätzliches $ wird angehan

Re: Array of Char --> String: Zusätzliches $ wird angehan

Re: Array of Char --> String: Zusätzliches $ wird angehan

Re: Array of Char --> String: Zusätzliches $ wird angehan

Re: Array of Char --> String: Zusätzliches $ wird angehan

Re: Array of Char --> String: Zusätzliches $ wird angehan

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 Re: Array of Char --> String: Zusätzliches $ wird angehan 1. Jan 2007, 20:31 Was steht den in tmcontent2? Markus Kinzler
	Zitat

Zacherl Registriert seit: 3. Sep 2004 4.629 Beiträge Delphi 10.2 Tokyo Starter	#3 Re: Array of Char --> String: Zusätzliches $ wird angehan 1. Jan 2007, 20:54 Am Ende, bevor ich nach String typecaste? Projekte: - GitHub (Profil, zyantific) - zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
	Zitat

3_of_8 Registriert seit: 22. Mär 2005 Ort: Dingolfing 4.129 Beiträge Turbo Delphi für Win32	#4 Re: Array of Char --> String: Zusätzliches $ wird angehan 1. Jan 2007, 20:56 Schau dir das ganze mal mit dem Evaluator durch, wann genau das $ dazukommt. Manuel Eberl „The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“ - Terry Pratchett
	Zitat

3_of_8 Registriert seit: 22. Mär 2005 Ort: Dingolfing 4.129 Beiträge Turbo Delphi für Win32	#6 Re: Array of Char --> String: Zusätzliches $ wird angehan 1. Jan 2007, 20:59 StrPas ist mittlerweile unnötig, weil PChars von Compiler implizit umgewandelt werden. Manuel Eberl „The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“ - Terry Pratchett
	Zitat

alzaimar (Moderator) Registriert seit: 6. Mai 2005 Ort: Berlin 4.956 Beiträge Delphi 2007 Enterprise	#9 Re: Array of Char --> String: Zusätzliches $ wird angehan 1. Jan 2007, 21:25 Florian, verwende doch einfach mal ein TStringStream. Dort hinein liest du erstmal den dekomprimierten Stream, und prüfst dann die Eigenschaft 'DataString'... "Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!" (Monty Python "Joke Warefare")
	Zitat

Zacherl Registriert seit: 3. Sep 2004 4.629 Beiträge Delphi 10.2 Tokyo Starter	#10 Re: Array of Char --> String: Zusätzliches $ wird angehan 1. Jan 2007, 21:30 Ich würde gerne ohne die Classes Unit auskommen. Meine TMemoryStreams sind selbst definierte Typen, von denen der Fehler allerdings mit 100%er Sicherheit nicht herkommt ... Projekte: - GitHub (Profil, zyantific) - zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
	Zitat