TypCasting PChar um String erweitern

[borncrush]

Es konnte definitiv kein Else-Fall geben. Aber ich habe trotzdem, leider ohne Erfolg, ein Else-If-Konstrukt eingebaut.

Delphi-Quellcode:

          if leftstr(ListView1.Items.Item[iarray].SubItems.Strings[2], 1) = '1' then begin
            //tempCast := pchar('"' + tempWert + '"');
            //xArray[iarray].VPChar := pchar(tempCast);
            xArray[iarray].VPChar := pchar(tempWert);
            xArray[iarray].VPChar := pchar('"' + string(StrNew(xArray[iarray].VPChar)) + '"');
          end else
            if leftstr(ListView1.Items.Item[iarray].SubItems.Strings[2], 1) = '2' then xArray[iarray].VPChar := pchar(tempWert)
            else xArray[iarray].VPChar := pchar('');

Also kann ich direkt benennen, dass xArray[iarray].VPChar := pchar(tempWert) keine Probleme macht.


Hingegen eine "Bearbeiten" des PChar's schon:

Delphi-Quellcode:

xArray[iarray].VPChar := pchar(tempWert);
xArray[iarray].VPChar := pchar('"' + string(StrNew(xArray[iarray].VPChar)) + '"');