Bom dia!
Uma forma que costumo fazer para converter String em Char é:
var MinhaString: String;
MeuChar : Char;
...
MinhaString:='ABCD';
MeuChar := MinhaString[1] // Resultado deve ser um 'A';
MeuChar := MinhaString[2] // Resultada deve ser um 'B';
MeuChar := MinhaString[3] // Resultada deve ser um 'C';
MeuChar := MinhaString[4] // Resultada deve ser um 'D';
O mesmo vale para um resultado de uma Query
Se no campo 'Tipo' vc tiver um valor 'ABCD', poderá fazer o mesmo:
MeuChar :=query.fieldbyname('tipo').asstring[1]; // Resultada deve ser um
'A';
MeuChar :=query.fieldbyname('tipo').asstring[2]; // Resultada deve ser um
'B';
MeuChar :=query.fieldbyname('tipo').asstring[3]; // Resultada deve ser um
'C';
MeuChar :=query.fieldbyname('tipo').asstring[4]; // Resultada deve ser um
'D';
Boa sorte.
Ulisses
----- Original Message -----
From: "Ricardo Mauro" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, April 12, 2005 8:24 AM
Subject: Re: [delphi-br] String to Char
A variavel aux foi apenas um exemplo, pois, este parametro sera alimentado
pelo banco query.fieldbyname('tipo').asstring
se tivesse um cast para char, realmente nao teria problema.
Com a funcao pchar nao funciona. O parametro tipo e de apenas 1 caracter.
Valeu a todos...
Abracos,
Ricardo Mauro
----- Original Message -----
From: [> Mutuka <]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, April 11, 2005 8:40 PM
Subject: Re: [delphi-br] String to Char
uma pergunta a variavel aux sempre vai absorver 1 caracter se sim declare
ela como char ai nao precisa mudar nada
Francisco Thiago <[EMAIL PROTECTED]> wrote:As respostas do
pessoal são boas, mas apenas se você tiver uma letra na var
Aux.
Tente fazer assim:
Get_Tipo(PChar(Aux));
[]'s
Thiago
----- Original Message -----
From: "Ricardo Mauro" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, April 11, 2005 2:32 PM
Subject: [delphi-br] String to Char
Boa tarde!
Como converter um caracter do tipo String para Char.
ex.: procedure Get_Tipo(tipo: Char);
no momento para chamar a procedure.
var
Aux: String;
begin
Aux := 'A';
Get_Tipo(Aux); --> Tenho que converter para char, senao, da erro. Como
fazer???
end;
Obrigado
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
Leandro...
[> Mutuka <]
__________________________________________________
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
