Problema com PChar

Question

Ao executar esta rotina ela d� erro em System.LoadResString[code:1:08aeb8f180]procedure TForm1.Button3Click(Sender: TObject);var  strRes: PChar;begin  try    strRes := StrAlloc(Length(Edit1.Text)+1); ...

Beppe · Answer

Parei de ler seu c�digo quando vi que tu tava usando PChar livremente no seu c�digo. N�O FA�A ISSO! Embora PChar te deixa acessar dados como string, elas N�O S�O strings. Use o tipo string para isso, que faz aloca��o impl�cita de mem�ria.

Se quer saber pq n�o se deve usar livremente, � devido ao uso err�neo que feaz dela. Por exemplo, vc aloca mem�ria e joga para strRes. Depois perde a refer�ncia a ela atribu�ndo novamente a strRes, inv�s de copiar a mem�ria para o endere�o j� determinado.

Jos� Henrique · Answer

Beppe,N�o me abandone!!!A fun��o tem que usar PChar pois � para usar em uma dll (que ser� usada em outras ambientes)Me indique o que est� errado e como posso resolver, por favor!!Tenho no��o que  ponteiro � um apontador (termos que alguns acad�micos acham mais apropriado) para o endere�o da mem�ria onde �come�a� a informa��o....

Kapak · Answer

Vc est� mandando o ponteiro de Edit1.Text e:

     strNome := ptrPos; // Aqui vc perde a refer�ncia

E:

  StrLCopy(strNome, strNomeComp, StrLen(strNomeComp)); // Aqui vc n�o tem mais mem�ria alocada p/ strNome

Ent�o tente substituir:

  StrLCopy(strNome, strNomeComp, StrLen(strNomeComp)); 
  Result := strNome;

Por:

  Result := StrAlloc(StrLen(strNomeComp)+1); // Aqui vc aloca mem�ria p/ Result e libera ap�s chamar a fun��o
  StrLCopy(Result, strNomeComp, StrLen(strNomeComp));

Na chamada da fun��o:

  try 
    strRes := StrAlloc(Length(Edit1.Text)+1); // N�o deve ser alocada a mem�ria pq a fun��o j� faz isto
    strRes := TrataNomeP(PChar(Edit1.Text)); 
    Edit2.Text := StrPas(strRes); 
  finally 
    StrDispose(strRes);
  end;

Ent�o substitua:

  try
    strRes := TrataNomeP(PChar(Edit1.Text));
    Edit2.Text := StrPas(strRes);
  finally
    StrDispose(strRes);
  end;

Jos� Henrique · Answer

kapak,Fiz as altera��es que voc� sugeriu e deu certo. Hoje entendo mais de PChar que antes deste post gra�as a vc e ao Beppe.Obrigado :D...

Beppe · Answer

[quote:1e48cfe51e=�Jos� Henrique�]A fun��o tem que usar PChar pois � para usar em uma dll (que ser� usada em outras ambientes)[/quote:1e48cfe51e]
E geralmente � a maneira apropriada de se lidar com strings em diferentes linguagens. Mas o que deve ser PChar � apenas a interface, implemente usando o tipo string fornecido pela linguagem.

Dois exemplos de como usar PChar:

Internamente(manipula��o com PChar por quest�es de performance)

function Bah(const S: String; Ch: Char): Integer;
var
  P, Q: PChar;
begin
  P := Pointer(S);
  Q := P + Length(S);
  Result := 0;
  while P < Q do
  begin
    if P^ = Ch then Inc(Result);
    Inc(P);
  end;
end;

Externamente(convers�o para PChar por necessidade)

function Bah(S: PChar; Ch: Char): Integer; external �mydll.dll�;
...
Bah(PChar(MinhaVariavelString), � �);

Espero ter podido esclarecer as diferen�as. � perfeitamente poss�vel manter seu c�digo atual(e se estiver rodando sem problemas, deixe assim mesmo), mas h� a quest�o da praticidade.

F�rum Problema com PChar #289292