28/11/2005

Converter String para PChar

Como faço para converter um string para pchar ?


Guilherme B

Respostas

28/11/2005

Adriano Santos

PChar(SuaString).


Responder Citar

28/11/2005

Guilherme B

Valeu !
Obrigado


Responder Citar

24/04/2010

Giovani Moura

Como faço para converter um string para pchar ?
  Aqui vai um exemplo (Em Pascal), espero que funcione! Abraços!!!     Program Prog_STrToPChar;   Uses WinCrt, winprocs ;   {WinProcs Apenas para a Função PostQuitMessage(0), Que é para encerrar o programa}
Function StrToPChar(S: String) : PChar ;   Const MaxArray = 254 ;   {Esta constante determina o numero maximo do Vetor de Char(Tamanho da String)}   Var
   PC : PChar ;                      { PC: é um PChar         }
   AP : Array[0..MaxArray] Of Char;  { AP: é um Vetor de Char }
   Cont : integer ;                  { Cont: é um integer     }   Begin
  For Cont := 0 To MaxArray Do       {Loop que limpa o Vetor  }
   AP[Cont] := #0 ;
     
  For Cont := 0 To Length(S) Do      {Loop de atribuição da String para o Vetor de Char}
   AP[Cont] := S[Cont] ;
    
  {Write('Array of char:(');  }
  {Write(AP);                 }
  {Writeln(')');              }      { Escrever na tela o resultado }
                                     { da primeira troca            }  
  PC := AP ;                         { Atribui diretamente o Vetor de Char para o PChar } {Write('Pchar(');             }      { Escrevendo na tela o resultado }
{Write(PC);                   }      { final da conversão para PChar  }
{Writeln(')');                }
                                       StrToPChar := PC ;                 { Retorna o valor adquirido a Função }
End;   Var TextoGeral : String ;            { Varivel de Exemplo: String }   Begin
 While TextoGeral <> 'x' Do          { Loop de Execução      }
   Begin
    Readln(TextoGeral);              { Ler String de entrada }     Writeln(StrToPChar(TextoGeral)); { Escrever na tela Pchar}    End;  PostQuitMessage(0);                 { Comando de encerramento do programa: Unit WinProcs }
end.
Responder Citar