PChar til String?

fra pchar til string:

Function ConvertPCharToString(PCharValue: PChar): String;
Begin
  Result := StrPas(PCharValue);
End;


fra string til pchar:

Function ConvertStringToPChar(StringValue: String): PChar;
Var
  PCharString: Array[0..255] of Char;
Begin
  Result := StrPCopy(PCharString,StringValue);
End;


/ZIRON

kan du ikke bare typecaste

String(pchar)

Pchar(String)

du kan uden problemer sætte en string ligmed en Pchar. Compileren foretager selv type castet. Altså

//Pchar til String;

var
  p : Pchar;
  s : String;
begin
  p := \'Her er en hest\';
  s := p;
  ShowMessage(s);
  ShowMessage(p);
end;

//String til Pchar;

var
  s : String;
  p : Pchar;
  i : Integer;
begin
  s := \'her er en hest mere\'; // Nu har vi to heste :-)
  p := Pchar(s);
//Eller
  p:= Pointer(s);
//Eller
  p:= @s[1];
//Eller For Delphi 2
  i := Length(s)+1;
  GetMem(p, i);
  StrPCopy(P,s);
  ShowMessage(p);
  FreeMem(p, i);
  //Nu har vi kun den ene hest tilbage :-)
end;
 
end;

Jens B

jens har du selv en hest, ellers synes jeg du skal overveje at købe dig en, jeg tror du vil have godt af det.

/ZIRON

I får begge point da jeg kan bruge begge eks. !
Men ziron du får 5 point mere for hurtigt svar =)

hehe jens så kan DU lærer det :-)

/ZIRON

bortset fra en detalje om at dit svar helt strengent ikke er rigtigt ....

Jens B

det har jeg da heller ikke sagt noget om, det var bare det med point. men jens du er også syg i hoved :-)

/ZIRON

Mig ? ja !

Jens B

ja dig  :-)

/ZIRON