Re: [delphi-br] Descobrir Mês

[Nagual]

Não fica mais fácil utilizar MonthOf e case ?

Coloque em uses a unit DateUtils

var
mes:string;
begin
  case  MonthOf(date) of
1: mes := 'Janeiro';
2: mes := 'Fevereiro';
3: mes := 'Março';
4: mes := 'Abril';
5: mes := 'Maio';
6: mes := 'Junho';
7: mes := 'Julho';
8: mes := 'Agosto';
9: mes := 'Setembro';
10: mes := 'Outubro';
11: mes := 'Novembro';
12: mes := 'Dezembro';
  end;
  showmessage(mes);
end;

[]´s
ARP

- Original Message - 
From: "Rubem Nascimento da Rocha" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, July 05, 2005 8:21 PM
Subject: Re: [delphi-br] Descobrir Mês


> Odeio ter que dar o peixe pescado, tratado, temperado e frito, mas tô 
> vendo
> que não via ter jeito.
>
> { Se o Windows é português, ele vai retornar Janeiro, Fevereiro, etc. 
> senão
> January, Feburary, etc. }
> function MesPorExtenso(const pData: TDateTime = 0): String;
> begin
>  if pData = 0 then
>Result := LongMonthNames[StrToInt(FormatDateTime('mm', Now))]
>  else
>Result := LongMonthNames[StrToInt(FormatDateTime('mm', pData))];
> end;
>
> function ExtensoMes(const pData: TDateTime = 0): String;
> const
>  lMeses: array [1..12] of String = ('Janeiro', 'Fevereiro', 'Março',
> 'Abril', 'Maio', 'Junho',
>'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novemrbo', 'Dezembro');
> begin
>  if pData = 0 then
>Result := lMeses[StrToInt(FormatDateTime('mm', Now))]
>  else
>Result := lMeses[StrToInt(FormatDateTime('mm', pData))];
> end;
>
> Melhor que isso, só TRÊS disso!






___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
< 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

 

[delphi-br] Re: Descobrir Mês

[nagual_br2003]

Não fica mais fácil utilizar MonthOf e case ?

Coloque em uses a unit DateUtils

var
mes:string;
begin
  case  MonthOf(date) of
1: mes := 'Janeiro';
2: mes := 'Fevereiro';
3: mes := 'Março';
4: mes := 'Abril';
5: mes := 'Maio';
6: mes := 'Junho';
7: mes := 'Julho';
8: mes := 'Agosto';
9: mes := 'Setembro';
10: mes := 'Outubro';
11: mes := 'Novembro';
12: mes := 'Dezembro';
  end;
  showmessage(mes);
end;

[]´s
ARP


--- Em delphi-br@yahoogrupos.com.br, "Rubem Nascimento da Rocha"
<[EMAIL PROTECTED]> escreveu
> Odeio ter que dar o peixe pescado, tratado, temperado e frito, mas
tô vendo 
> que não via ter jeito.
> 
> { Se o Windows é português, ele vai retornar Janeiro, Fevereiro,
etc. senão 
> January, Feburary, etc. }
> function MesPorExtenso(const pData: TDateTime = 0): String;
> begin
>   if pData = 0 then
> Result := LongMonthNames[StrToInt(FormatDateTime('mm', Now))]
>   else
> Result := LongMonthNames[StrToInt(FormatDateTime('mm', pData))];
> end;
> 
> function ExtensoMes(const pData: TDateTime = 0): String;
> const
>   lMeses: array [1..12] of String = ('Janeiro', 'Fevereiro', 'Março', 
> 'Abril', 'Maio', 'Junho',
> 'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novemrbo', 'Dezembro');
> begin
>   if pData = 0 then
> Result := lMeses[StrToInt(FormatDateTime('mm', Now))]
>   else
> Result := lMeses[StrToInt(FormatDateTime('mm', pData))];
> end;
> 
> Melhor que isso, só TRÊS disso!
> 
> []s
> 
> >From: Sérgio Durand <[EMAIL PROTECTED]>
> >Reply-To: delphi-br@yahoogrupos.com.br
> >To: delphi-br@yahoogrupos.com.br
> >Subject: Re: [delphi-br] Descobrir Mês
> >Date: Tue, 05 Jul 2005 17:16:12 -0300
> >
> >Oi Anderson,
> >
> >Eu não lembro muito bem, mas eu já fiz e foi algo mais ou menos
assim...
> >você dá um DecodeDate passando uma data e as variáveis...
> >Pega a variável respectiva do mes (vai ser um numero)...
> >Cria um array de constante tipo [janeiro, fevereiro, etc e tal] ..
> >Não sei se ficou claro... mais o caminho é por aí ! =))
> >
> >Até mais,
> >Sérgio
> >
> >Anderson escreveu:
> >
> > >Aes galera...
> > >
> > >Será q existe um meio de dizer qual é o mes em uma data.
> > >Ex: 10/07/05
> > >   Mes = Julho.
> > >
> > >Anderson
> > >
> >
> >
> >
> 
> _
> MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br




-- 
< 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

 

Re: [delphi-br] Re: Off Gerenciamento deficiente (desabafo)

[Luciano Rodrigues]

Trabalhei em uma empresa onde se fazia uma lista de tópicos a serem dados no 
treinamento, era chamado "check list".

Cada tópico era assinado pelo funcionário assim que o treinamento era
completado.

Há algum tempo não implemento nada sem fazer isso.

-- 
Luciano RM


Em 05/07/05, carlos alberto do amaral<[EMAIL PROTECTED]> escreveu:
> Olá,
> 
>Tudo o que eu disse, o Luciano, já havia sintetizado melhor...
> 
>Um abraço,
> 
>   Carlos
>


-- 
< 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

 

Re: [delphi-br] Descobrir Mês

[Rubem Nascimento da Rocha]

Odeio ter que dar o peixe pescado, tratado, temperado e frito, mas tô vendo 
que não via ter jeito.

{ Se o Windows é português, ele vai retornar Janeiro, Fevereiro, etc. senão 
January, Feburary, etc. }
function MesPorExtenso(const pData: TDateTime = 0): String;
begin
  if pData = 0 then
Result := LongMonthNames[StrToInt(FormatDateTime('mm', Now))]
  else
Result := LongMonthNames[StrToInt(FormatDateTime('mm', pData))];
end;

function ExtensoMes(const pData: TDateTime = 0): String;
const
  lMeses: array [1..12] of String = ('Janeiro', 'Fevereiro', 'Março', 
'Abril', 'Maio', 'Junho',
'Julho', 'Agosto', 'Setembro', 'Outubro', 'Novemrbo', 'Dezembro');
begin
  if pData = 0 then
Result := lMeses[StrToInt(FormatDateTime('mm', Now))]
  else
Result := lMeses[StrToInt(FormatDateTime('mm', pData))];
end;

Melhor que isso, só TRÊS disso!

[]s

>From: Sérgio Durand <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: Re: [delphi-br] Descobrir Mês
>Date: Tue, 05 Jul 2005 17:16:12 -0300
>
>Oi Anderson,
>
>Eu não lembro muito bem, mas eu já fiz e foi algo mais ou menos assim...
>você dá um DecodeDate passando uma data e as variáveis...
>Pega a variável respectiva do mes (vai ser um numero)...
>Cria um array de constante tipo [janeiro, fevereiro, etc e tal] ..
>Não sei se ficou claro... mais o caminho é por aí ! =))
>
>Até mais,
>Sérgio
>
>Anderson escreveu:
>
> >Aes galera...
> >
> >Será q existe um meio de dizer qual é o mes em uma data.
> >Ex: 10/07/05
> >   Mes = Julho.
> >
> >Anderson
> >
>
>
>

_
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br



-- 
< 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

 

[delphi-br] Trocar Tab por Enter

[Miguelito]

 Pessoal, como faço para que na hora que eu digito enter funcione como se
estivesse dando tab??

usar os eventos keypress, keydown etc.
 
Miguel Villacorta
  4446-4100 ramal 4126
7312-5509
 [EMAIL PROTECTED]
  www.dpfautopecas.com.br
  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.8.9/39 - Release Date: 4/7/2005


[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

<*> 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

 

Re: [delphi-br] Descobrir Mês

[Sérgio Durand]

Oi Anderson,

Eu não lembro muito bem, mas eu já fiz e foi algo mais ou menos assim...
você dá um DecodeDate passando uma data e as variáveis...
Pega a variável respectiva do mes (vai ser um numero)...
Cria um array de constante tipo [janeiro, fevereiro, etc e tal] ..
Não sei se ficou claro... mais o caminho é por aí ! =))

Até mais,
Sérgio

Anderson escreveu:

>Aes galera...
>
>Será q existe um meio de dizer qual é o mes em uma data.
>Ex: 10/07/05
>   Mes = Julho.
>
>Anderson
>





-- 
< 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

 

Re: RES: RES: [delphi-br] serial do hd

[Alosi yarru]

Como faço para instalar o arquivo "Smartvsd.vxd"?

já coloquei na pasta "c:windows\system\iosubsys\"  e tentei registrar através 
do programa regsvr32, mas não funcionou.

t+
  - Original Message - 
  From: Adriano (Micro Center) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, July 02, 2005 2:26 PM
  Subject: Re: RES: RES: [delphi-br] serial do hd


  Serial Number Físico do HD

   
Função para pegar o serial físico do hd, e não o serial do volume do 
hd, pois o serial do volume do hd sempre que o hd é formatado ele muda e também 
fazendo uma copia do hd pelo ghost esse número do volume também é copiado. 
Então para um controle do programa o ideal é pegar 
o serial físico do hd.

{ procedure utilizada pela função que pega o serial do hd }

procedure ChangeByteOrder( var Data; Size : Integer );
var
  ptr : PChar;
  i : Integer;
  c : Char;
begin
  ptr := @Data;
  for i := 0 to (Size shr 1)-1 do
  begin
c := ptr^;
ptr^ := (ptr+1)^;
(ptr+1)^ := c;
Inc(ptr,2);
  end;
end;

{ função que pega o serial number FÍSICO do HD e retorna string }

function GetIdeDiskSerialNumber : String;
   type
TSrbIoControl = packed record
  HeaderLength: ULONG;
  Signature: Array[0..7] of Char;
  Timeout: ULONG;
  ControlCode: ULONG;
  ReturnCode: ULONG;
  Length: ULONG;
   end;
   SRB_IO_CONTROL = TSrbIoControl;
   PSrbIoControl = ^TSrbIoControl;

TIDERegs = packed record
  bFeaturesReg : Byte; // especificar "comandos" SMART
  bSectorCountReg : Byte; // registro de contador de setor
  bSectorNumberReg : Byte; // registro de número de setores
  bCylLowReg : Byte; // valor de cilindro (byte mais baixo)
  bCylHighReg : Byte; // valor de cilindro (byte mais alto)
  bDriveHeadReg : Byte; // registro de drive/cabeça
  bCommandReg : Byte; // comando IDE
  bReserved : Byte; // reservado- tem que ser zero
   end;
IDEREGS = TIDERegs;
PIDERegs = ^TIDERegs;

   TSendCmdInParams = packed record
  cBufferSize : DWORD;
  irDriveRegs : TIDERegs;
  bDriveNumber : Byte;
  bReserved : Array[0..2] of Byte;
  dwReserved : Array[0..3] of DWORD;
  bBuffer : Array[0..0] of Byte;
end;
SENDCMDINPARAMS = TSendCmdInParams;
PSendCmdInParams = ^TSendCmdInParams;
 
TIdSector = packed record
  wGenConfig : Word;
  wNumCyls : Word;
  wReserved : Word;
  wNumHeads : Word;
  wBytesPerTrack : Word;
  wBytesPerSector : Word;
  wSectorsPerTrack : Word;
  wVendorUnique : Array[0..2] of Word;
  sSerialNumber : Array[0..19] of Char;
  wBufferType : Word;
  wBufferSize : Word;
  wECCSize : Word;
  sFirmwareRev : Array[0..7] of Char;
  sModelNumber : Array[0..39] of Char;
  wMoreVendorUnique : Word;
  wDoubleWordIO : Word;
  wCapabilities : Word;
  wReserved1 : Word;
  wPIOTiming : Word;
  wDMATiming : Word;
  wBS : Word;
  wNumCurrentCyls : Word;
  wNumCurrentHeads : Word;
  wNumCurrentSectorsPerTrack : Word;
  ulCurrentSectorCapacity : ULONG;
  wMultSectorStuff : Word;
  ulTotalAddressableSectors : ULONG;
  wSingleWordDMA : Word;
  wMultiWordDMA : Word;
  bReserved : Array[0..127] of Byte;
end;
PIdSector = ^TIdSector;

  const
IDE_ID_FUNCTION = $EC;
IDENTIFY_BUFFER_SIZE = 512;
DFP_RECEIVE_DRIVE_DATA = $0007c088;
IOCTL_SCSI_MINIPORT = $0004d008;
IOCTL_SCSI_MINIPORT_IDENTIFY = $001b0501;
DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;
BufferSize = SizeOf(SRB_IO_CONTROL)+DataSize;
W9xBufferSize = IDENTIFY_BUFFER_SIZE+16;
  var
hDevice : THandle;
cbBytesReturned : DWORD;
pInData : PSendCmdInParams;
pOutData : Pointer; // PSendCmdOutParams
Buffer : Array[0..BufferSize-1] of Byte;
srbControl : TSrbIoControl absolute Buffer;
  
  begin
Result := '';
FillChar(Buffer,BufferSize,#0);
 
if Win32Platform=VER_PLATFORM_WIN32_NT then
// Windows NT, Windows 2000, Windows XP
begin
  // recuperar handle da porta SCSI
  hDevice := CreateF

Re: RES: [delphi-br] serial do hd

[Alosi yarru]

Testei aqui no trabalho o artigo e em uma máquina com Windows XP, trouxe o 
valor em branco as outras com Windows XP trouxe o valor correto.

Nas máquinas com Windows 98 retorna que não consegue criar o arquivo.

No servidor que tem Windows 2000 tbm funcionou corretamente.

t+


- Original Message - 
  From: Walter Alves Chagas Junior 
  To: 'delphi-br@yahoogrupos.com.br' 
  Sent: Friday, July 01, 2005 9:19 PM
  Subject: RES: RES: [delphi-br] serial do hd


  Veja este artigo meu no Delphi3000

  http://www.delphi3000.com/articles/article_4207.asp



  []s

  Walter Alves Chagas Junior
  Projeto e desenvolvimento
  Telemont Engenharia de telecomunicações
  Belo Horizonte - MG - Brazil 
  [EMAIL PROTECTED]
  Fone: (31) 3389-8215 Fax: (31) 3389-8200


  > -Mensagem original-
  > De: Alosi yarru [mailto:[EMAIL PROTECTED]
  > Enviada em: sexta-feira, 1 de julho de 2005 16:34
  > Para: delphi-br@yahoogrupos.com.br
  > Assunto: Re: RES: [delphi-br] serial do hd
  > 
  > 
  > e como faz isso via programação
  >   - Original Message - 
  >   From: Walter Alves Chagas Junior 
  >   To: 'delphi-br@yahoogrupos.com.br' 
  >   Sent: Friday, July 01, 2005 4:05 PM
  >   Subject: RES: RES: [delphi-br] serial do hd
  > 
  > 
  >   Então não pegue o serial do voluma do HD, pegue o serial da 
  > controladora
  > 
  > 
  > 
  > 
  >   []s
  > 
  >   Walter Alves Chagas Junior
  >   Projeto e desenvolvimento
  >   Telemont Engenharia de telecomunicações
  >   Belo Horizonte - MG - Brazil 
  >   [EMAIL PROTECTED]
  >   Fone: (31) 3389-8215 Fax: (31) 3389-8200
  > 
  > 
  >   > -Mensagem original-
  >   > De: aderson rezende [mailto:[EMAIL PROTECTED]
  >   > Enviada em: sexta-feira, 1 de julho de 2005 15:01
  >   > Para: delphi-br@yahoogrupos.com.br
  >   > Assunto: Re: RES: [delphi-br] serial do hd
  >   > 
  >   > 
  >   > quase isso Walter   a ideia  é colocar um tempo de validade 
  >   > para locação da aplicação e um dos parametros pensei no 
  > serial do HD  
  >   > 
  >   >  
  >   > 
  >   > 
  >   > 
  >   > Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu:
  >   > Desculpe intrometer no assunto amigo, mas você tá 
  > querendo fazer algum
  >   > mecanismo de proteção contra cópia não autorizada?
  >   > 
  >   > 
  >   > 
  >   > []s
  >   > 
  >   > Walter Alves Chagas Junior
  >   > Projeto e desenvolvimento
  >   > Telemont Engenharia de telecomunicações
  >   > Belo Horizonte - MG - Brazil 
  >   > [EMAIL PROTECTED]
  >   > Fone: (31) 3389-8215 Fax: (31) 3389-8200
  >   > 
  >   > 
  >   > > -Mensagem original-
  >   > > De: aderson rezende [mailto:[EMAIL PROTECTED]
  >   > > Enviada em: sexta-feira, 1 de julho de 2005 10:23
  >   > > Para: delphi-br@yahoogrupos.com.br
  >   > > Assunto: [delphi-br] serial do hd
  >   > > 
  >   > > 
  >   > > preciso pegar o serial do HD
  >   > > usei essa função e cada hora vem um valor diferente  ou 
  >   > > melhor  sempre da dois valores 1 por vez
  >   > >  
  >   > >  
  >   > > Function SerialNum(FDrive:String) 
  >   > > :String;VarSerial:DWord;DirLen,Flags: DWord;DLabel : 
  >   > > Array[0..11] of Char;beginTry 
  >   > > GetVolumeInformation(PChar(FDrive+':\'),dLabel,12,@Serial,DirL
  >   > > en,Flags,nil,0);Result := IntToHex(Serial,8); Except Result 
  >   > > :='';end;end;  como faço para retornar o resultado dessa 
  >   > > função???pode ser esse o erro
  >   > > 
  >   > > 
  >   > > 
  >   > > 
  >   > > 
  >   > > -
  >   > > Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o 
  >   > > discador agora!
  >   > > 
  >   > > [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
  >   > > 
  >   > > 
  >   > > 
  >   > > 
  >   > >  
  >   > > 
  >   > > 
  >   > 
  >   > 
  >   > [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
  >   > 
  >   >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]
  >   >   
  >   > 

Re: [delphi-br] Número de registros Delphi 5

[Eduardo]

Qual erro 

Eduardo
  - Original Message - 
  From: Rodrigo Tognin 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 05, 2005 12:13 PM
  Subject: RES: [delphi-br] Número de registros Delphi 5


  Já fiz isso, ele não reconhece o comando... dá erro

  será q meu delphi tá com bug? Eu atualizei ele faz pouco tempo...

  Valeu pela ajuda

  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  nome de Eduardo
  Enviada em: terça-feira, 5 de julho de 2005 09:26
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Número de registros Delphi 5


  Não tem 

  Acho q algo esta errado no seu codigo. ou por algum bug não aparece no cod.

  Coloque na mão grande e compile.

  Eduardo
- Original Message -
From: Rodrigo Tognin
To: Delphi-Br
Sent: Tuesday, July 05, 2005 9:21 AM
Subject: [delphi-br] Número de registros Delphi 5


Como faço para atribuir o número de registros de um banco de dados Access
  a
uma variável no Delphi 5?
Uso ADO para conectar. No Delphi 7 eu uso o seguinte: Num_Registros :=
..RecordCount;
Mas no Delphi 5 não tem o RecordCount... tem algum outro jeito??

Rodrigo Tognin
Estudante e estagiário
Técnico em informática
ESALQ/USP - IPEF





  -- 
  < 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

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

<*> 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

 

Re: [delphi-br] Descobrir Mês

[Leandro]

showmessage(formatdatetime('', date));

- Original Message - 
From: "Anderson" <[EMAIL PROTECTED]>
To: "Grupo Delphi" 
Sent: Tuesday, July 05, 2005 4:13 PM
Subject: [delphi-br] Descobrir Mês


Aes galera...

Será q existe um meio de dizer qual é o mes em uma data.
Ex: 10/07/05
   Mes = Julho.

Anderson

[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

 

Re: [delphi-br] Bom, preciso de ajuda!!!

[Valfrid-Ly Silva Couto]

O que você está querendo se parece muito com
Macrosubstituição pra mim, e isso não existe no
Delphi. O que você pode fazer é criar objetos com o
nome que você deu e pesquisar por ele e aí sim
retornar o seu valor!

--- dba_gomes <[EMAIL PROTECTED]> escreveu:

> Gente, primeiramente boa tarde
> 
> Bom tenho uma constante " const lab1010 = 'lab1-01'
> ", e agora estou em 
> uma altura do processamendo que tenho uma string que
> gera 'lab1010' tem 
> como pegar essa string e retornar o valor da
> constante...trata-la não 
> como uma string mais sim como a constante.
> 
> Exemplo:
> 
> const
>   lab1010 = 'lab1-01';
>   lab1011 = 'lab1-02';
>   .
>   .
> micro('lab'+info_login[1]+info_login[5]); //ex:
> micro('lab1010')
>   .
>   .
> 
> resultado da função micro retornar 'lab1-01' ou
> 'lab1-02';
> 
> 
> 
> 
> -- 
> < 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
> 
> 
> 
> http://br.yahoo.com/info/utos.html
> 
>  
> 
> 
> 


Valfrid-Ly Silva Couto
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ 15114646

__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 


-- 
< 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

 

Re: [delphi-br] Off-Topic - Windows Terminal Server roda Win32

[Info Desenvolvimento]

Aqui na empresa usamos terminal server com Windows 2003 e aplicações rodando em 
Delphi com paradox, assim como o colega falou deves ter cuidado quantos as 
configurações do BDE Admin.



[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

<*> 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

 

Re: [delphi-br] Off-Topic - Windows Terminal Server roda Win32

[Paulo Santana (Terra)]

Funciona perfeitamente, apenas fique atento a questão do LOCAL SHARE do BDE.




Oswaldo dos Santos Araujo escreveu:

>Olá Amigos
>
>Estou com uma dúvida cruel. Alguém já usou o Windows Terminal Server
>utilizando aplicações Delphi x DBexpress x Firebrid ou ainda Delphi x BDE
>x Paradox? Funciona? Tenho um cliente que quer colocar isto no escritório
>dele para rodar alguns programas meus e eu não conheço esta tecnologia...
>Alguém conhece ou já trabalhou com isto?
>
>
>Atenciosamente
>
>Oswaldo dos Santos Araujo
>http://www.santosaraujo.com.br
>mailto:[EMAIL PROTECTED]
>
>Telefones escritório: (11) 6996-1101/6994-3586
>celular: (11) 9259-4094
>
>
>
>
>  
>




---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0527-0, 04/07/2005
Tested on: 5/7/2005 17:37:22
avast! - copyright (c) 2000-2004 ALWIL Software.
http://www.avast.com





-- 
< 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

 

Re: [delphi-br] Table1/Table2

[Info Desenvolvimento]

Cria um form com dois DBGrids, seta as propriedades do DbGrid com suas 
respectivas tabelas 
No botão coloca esse código.
Uso esse procedimento para passar dados de uma tabela para outra.

// Button
procedure TFCopia.BitBtn1Click(Sender: TObject);
var
 x: Integer;
begin
 Table2.First;
 While not Table2.EOF do
  begin
   Table1.Append;
   for x:= 0 to Table2.FieldCount -1 do
begin
 Table1.Fields[x].AsString:= Table2.Fields[x].AsString;
end;
   Table1.Post;
   Table2.Next;
  end;
 ShowMessage('Terminado!'+ #13+
 'Dados importados com sucesso!'+ #13+ 'OK!!! ;)');
end;



[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

<*> 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

 

Re: [delphi-br] Descobrir Mês

[Alosi yarru]

Vc pode usar assim:

label1.text := formatdatetime('', date);

t+
Alosi


- Original Message -
From: "Anderson" <[EMAIL PROTECTED]>
To: "Grupo Delphi" 
Sent: Tuesday, July 05, 2005 4:13 PM
Subject: [delphi-br] Descobrir Mês


Aes galera...

Será q existe um meio de dizer qual é o mes em uma data.
Ex: 10/07/05
   Mes = Julho.

Anderson

[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













___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
< 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

 

Re: [delphi-br] Descobrir Mês

[Luciano de Oliveira]

edit1.text:= FormatDateTime("", data_q_quer_saber_o_mes);
- Original Message - 
From: "Anderson" <[EMAIL PROTECTED]>
To: "Grupo Delphi" 
Sent: Tuesday, July 05, 2005 4:13 PM
Subject: [delphi-br] Descobrir Mês


Aes galera...

Será q existe um meio de dizer qual é o mes em uma data.
Ex: 10/07/05
   Mes = Julho.

Anderson

[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








E-mail classificado pelo Identificador de Spam Inteligente Terra.
Para alterar a categoria classificada, visite
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=lossilva&_l=1,1120593338.473502.3115.malavi.terra.com.br,4188,Des15,Des15

Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 05/07/2005 / Versão: 4.4.00 - 
Dat 4528
Proteja o seu e-mail Terra: http://mail.terra.com.br/




-- 
< 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

 

[delphi-br] Colorir permanente linha DBGRID

[V.Alberto]

Prezados Colegas,


Preciso mudar a cor da font de uma linha de um DBGRID ao clicar nessa linha, 
sinalizando ao usuário que aquela linha já foi selecionada antes. 

Alguém já implementou isso q possa me passar o fragmento do código?

Agradeço a ajuda desde já.

Abraços,

Vandinei A. Santos


[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

<*> 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

 

Re: [delphi-br] Arquivos INI

[Alexandre - Yahoo]

para ler no arquivo:

var
   Inifile : Tinifile;
begin
   inifile := TInifile.Create(Extractfilepath(application.exename) + 
'config.ini');
   ShowMessage(inifile.readstring('teste','valor',''));
   inifile.free;
  - Original Message - 
  From: Wilson Valdevite 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 04, 2005 3:09 PM
  Subject: [delphi-br] Arquivos INI


  Galera, boa tarde...

  Estou quebrando a cabeça em uma função que me retorne o valor de um arquivo 
.ini. Desculpe a pergunta mas apenas meu servidor de mail está funcionando.

  Se alguem puder me ajudar, fico muito grato.

  Wilson

  [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

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

<*> 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

 

[delphi-br] Table1/Table2

[Anderson]

Aes galera

Alguém poderia me ajudar??
Como faço para copiar um registro com todos os campos de uma tabela e colar em 
outra tabela...Sem precisar de ir de campo em campo???

Anderson

[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

<*> 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

 

Re: [delphi-br] Res: Acessar conteúdo de um arquivo .DAT criado pelo COBOL

[Marcio Melli Silvestre]

Procura uma ferramenta chamada flexql.
Há alguns anos, eu utilizei para transformar de COBOL
e 
DATAFLEX para .DBF - Antes era uma ferramenta free.
Dá uma caçada pela net e vê se encontra ela em versão
shareware ou demo.


--- Stock <[EMAIL PROTECTED]> escreveu:

> Caso vc nao tenha pelo menos o layout do arquivo,
> com suas definições,
> dificilmente vc conseguira importar estes dados,
> haja visto que no cobol
> ainda ha os chamados campos compactados (comp-3,
> comp-x, etc) que dificultam
> ainda mais qualquer leitura por fora... se o seu
> cliente tiver os fontes e
> so ver neles esta formatação e criar um programa em
> cobol pra fazer a
> leitura e exportar em txt, senao, pode ate haver um
> jeito, mas eu deconheço.
> .
>  
> [EMAIL PROTECTED]
> 600 modelos de sites profissionais - Imperdivel
> http://www.kitsites.com/index.php?ref=50
>  
> ---Mensagem original---
>  
> De: silvio_listas
> Data: 07/05/05 15:55:15
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Acessar conteúdo de um arquivo .DAT criado
> pelo COBOL
>  
> Oi,
>  
> Um posível cliente chegou com uma série de arquivos
> .DAT que compõe um
> banco de dados, dizendo que o cara que criou o
> programa para eles
> desapareceu a muitos anos e que precisam comprar um
> programa novo, mas
> precisariam das informações antigas, então pergunto
>  
> Como faço para acessar o conteúdo desses arquivos
> .DAT? (Lembrando que
> não tenho a menor idéia da estrutura dos campos)
>  
> Silvio.
>  
>  
>  
>  
> --
> < 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
>  
>  
>  
>  
>  
>  
>  
> 
> [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
> 
> 
> 
> http://br.yahoo.com/info/utos.html
> 
>  
> 
> 
> 


__
Converse com seus amigos em tempo real com o Yahoo!
Messenger 
http://br.download.yahoo.com/messenger/ 

__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 


-- 
< 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

 

[delphi-br] [OFF-TOPIC] - Aplicativo para diagramas tipo FlowChart

[WWW.LABSOFTNET.COM.BR \(Mateus\)]

Ola amigos,

Alguem usa algum aplicativo tipo "FlowChart" para criar diagramas e documentar 
sistemas ?
Podem me indicar algum que ja conhecem ?

Abraços;
Mateus;


[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

<*> 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

 

[delphi-br] Res: Acessar conteúdo de um arquivo .DAT criado pelo COBO L

[Stock]

Caso vc nao tenha pelo menos o layout do arquivo, com suas definições,
dificilmente vc conseguira importar estes dados, haja visto que no cobol
ainda ha os chamados campos compactados (comp-3, comp-x, etc) que dificultam
ainda mais qualquer leitura por fora... se o seu cliente tiver os fontes e
so ver neles esta formatação e criar um programa em cobol pra fazer a
leitura e exportar em txt, senao, pode ate haver um jeito, mas eu deconheço.
.
 
[EMAIL PROTECTED]
600 modelos de sites profissionais - Imperdivel
http://www.kitsites.com/index.php?ref=50
 
---Mensagem original---
 
De: silvio_listas
Data: 07/05/05 15:55:15
Para: delphi-br@yahoogrupos.com.br
Assunto: Acessar conteúdo de um arquivo .DAT criado pelo COBOL
 
Oi,
 
Um posível cliente chegou com uma série de arquivos .DAT que compõe um
banco de dados, dizendo que o cara que criou o programa para eles
desapareceu a muitos anos e que precisam comprar um programa novo, mas
precisariam das informações antigas, então pergunto
 
Como faço para acessar o conteúdo desses arquivos .DAT? (Lembrando que
não tenho a menor idéia da estrutura dos campos)
 
Silvio.
 
 
 
 
--
< 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
 
 
 
 
 
 
 

[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

<*> 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

 

[delphi-br] Descobrir Mês

[Anderson]

Aes galera...

Será q existe um meio de dizer qual é o mes em uma data.
Ex: 10/07/05
   Mes = Julho.

Anderson

[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

<*> 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

 

[delphi-br] Problemas com SQLStoredProc

[Robert Silva Soares]

Caros Colegas;

Estou desenvolvendo uma aplicação que faz uso do banco de dados ORACLE 9, 
portando andei lento alguns artigos na internet, de como fazer a comunicação 
entre o Delphi e o Oracle, e conforme as informações que adquiri, criamos uma 
procedure no banco de dados para fazer a inclusão/alteração/exclusão dos 
registros na tabela, como segue:

TABELA: nb_cvrd_oc_cab
Name Type Nullable Default Comments 
  
   --- 
-- 
ID   NUMBER(12)ID unico para todo o sistema 
  
NUMR_OC  VARCHAR2(12)  Numero da Ordem de Compra
  
DATA_EMISSAO DATE  SYSDATE Data da Emissao da Ordem de Compra   
  
DATA_ACEITE  DATE  SYSDATE Data do Aceite no QUADREM
  
NOME_CONTATO VARCHAR2(50) YNome do Solicitante da Ordem de 
Compra 
ENDE_EMAIL   VARCHAR2(50) YE-Mail do Solicitante
  
VALR_TOTAL   NUMBER(15,2) YValor Total da Ordem de Compra   
  


PROCEDURE: 
create or replace procedure nb_cvrd_oc_cab_prc(par_tipo char,
par_id nb_cvrd_oc_cab.id%type,
par_numr_oc nb_cvrd_oc_cab.numr_oc%type,
par_data_emissao nb_cvrd_oc_cab.data_emissao%type,
par_data_aceite nb_cvrd_oc_cab.data_aceite%type,
par_nome_contato nb_cvrd_oc_cab.nome_contato%type,
par_ende_email nb_cvrd_oc_cab.ende_email%type,
par_valr_total nb_cvrd_oc_cab.valr_total%type) as
begin
...
 ...
end nb_cvrd_oc_cab_prc;

ROTINA PARA A GRAVAÇÃO DOS DADOS NA TABELA
UTILIZANDO O SQLStoredProc
with DM.SQLSP1 do begin
  ParamByName('par_tipo').AsString   := 'I';
  ParamByName('par_id').AsInteger:= 0;
  ParamByName('par_numr_oc').AsString:= Copy(meNumrOC.Text,1,12);
  ParamByName('par_data_emissao').AsDateTime := 
StrToDateTime(deDataEmissao.Text);
  ParamByName('par_data_aceite').AsDateTime  := 
StrToDateTime(deDataAceite.Text);
  ParamByName('par_nome_contato').AsString   := Copy(meNomeContato.Text,1,50);
  ParamByName('par_ende_email').AsString := Copy(meEmail.Text,1,50);
  ParamByName('par_valr_total').AsCurrency   := StrToFloat(ceValrTotal.Text);
  ExecProc;
end;


Montamos toda a janela e instanciamos todos os campos, através de Edit, e 
estamos tentando fazer a gravação dos dados na tabela utilizando o componente 
SQLStoredProc, só que está me apresentando um error a qual eu não estou 
conseguindo ver. Sendo que me apresenta a mensagem de erro: BCDOverflow

Portanto meu colegas, eu gostaria que se alguém souber, por favor me ajude.

Atenciosamente,

Robert.'.


[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

<*> 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

 

Re: [delphi-br] Off-Topic - Windows Terminal Server roda Win32

[Valfrid-Ly Silva Couto]

O WTS vai emular uma estação de trabalho no servidor
de conexão, sendo assim, o seu programa não precisa de
nada especial para rodar, basta que você coloque ele
funcionando nessa máquina e que, o administrador,
quando liberar os acessos, inclua seu programa na
lista de programas que o usuário irá poder utilizar.

--- Oswaldo dos Santos Araujo
<[EMAIL PROTECTED]> escreveu:

> 
> Olá Amigos
> 
> Estou com uma dúvida cruel. Alguém já usou o Windows
> Terminal Server
> utilizando aplicações Delphi x DBexpress x Firebrid
> ou ainda Delphi x BDE
> x Paradox? Funciona? Tenho um cliente que quer
> colocar isto no escritório
> dele para rodar alguns programas meus e eu não
> conheço esta tecnologia...
> Alguém conhece ou já trabalhou com isto?
> 
> 
> Atenciosamente
> 
> Oswaldo dos Santos Araujo
> http://www.santosaraujo.com.br
> mailto:[EMAIL PROTECTED]
> 
> Telefones escritório: (11) 6996-1101/6994-3586
> celular: (11) 9259-4094
> 
> 
> 
> 
> -- 
> < 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
> 
> 
> 
> http://br.yahoo.com/info/utos.html
> 
>  
> 
> 
> 


Valfrid-Ly Silva Couto
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ 15114646





___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
< 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

 

[delphi-br] Criando um objeto Tstring

[anluizalr]

A classe TStrings tem um método AddObject que 
adiciona uma string para uma lista, e associa um 
objeto com a string. 

Se este objeto é uma string que você precisará 
representa a string como um Objeto...
}

type
TString = class(TObject)
private
fStr: String;
public
constructor Create(const AStr: String);
property Str: String read FStr write FStr;
end;
 Confira todo o restante em http://www.tcsystems.com.br




-- 
< 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

 

RES: [delphi-br] Off-Topic - Windows Terminal Server roda Win32

[Rodrigo Tognin]

de novo essa pergunta?

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Oswaldo dos Santos Araujo
Enviada em: terça-feira, 5 de julho de 2005 15:38
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Off-Topic - Windows Terminal Server roda Win32



Olá Amigos

Estou com uma dúvida cruel. Alguém já usou o Windows Terminal Server
utilizando aplicações Delphi x DBexpress x Firebrid ou ainda Delphi x BDE
x Paradox? Funciona? Tenho um cliente que quer colocar isto no escritório
dele para rodar alguns programas meus e eu não conheço esta tecnologia...
Alguém conhece ou já trabalhou com isto?


Atenciosamente

Oswaldo dos Santos Araujo
http://www.santosaraujo.com.br
mailto:[EMAIL PROTECTED]

Telefones escritório: (11) 6996-1101/6994-3586
celular: (11) 9259-4094




-- 
< 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

 

[delphi-br] Off-Topic - Windows Terminal Server roda Win32

[Oswaldo dos Santos Araujo]

Olá Amigos

Estou com uma dúvida cruel. Alguém já usou o Windows Terminal Server
utilizando aplicações Delphi x DBexpress x Firebrid ou ainda Delphi x BDE
x Paradox? Funciona? Tenho um cliente que quer colocar isto no escritório
dele para rodar alguns programas meus e eu não conheço esta tecnologia...
Alguém conhece ou já trabalhou com isto?


Atenciosamente

Oswaldo dos Santos Araujo
http://www.santosaraujo.com.br
mailto:[EMAIL PROTECTED]

Telefones escritório: (11) 6996-1101/6994-3586
celular: (11) 9259-4094




-- 
< 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

 

[delphi-br] Acessar conteúdo de um arquivo .DAT criado pelo COBOL

[silvio_listas]

Oi,

Um posível cliente chegou com uma série de arquivos .DAT que compõe um 
banco de dados, dizendo que o cara que criou o programa para eles 
desapareceu a muitos anos e que precisam comprar um programa novo, mas 
precisariam das informações antigas, então pergunto

Como faço para acessar o conteúdo desses arquivos .DAT? (Lembrando que 
não tenho a menor idéia da estrutura dos campos)

Silvio.




-- 
< 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

 

[delphi-br] Off-Topic - Windows Terminal Server roda aplicações Win32 (delphi)?

[oswaldosaraujo]

Olá Amigos

Estou com uma dúvida cruel. Alguém já usou o Windows Terminal Server
utilizando aplicações Delphi x DBexpress x Firebrid ou ainda Delphi x 
BDE
x Paradox? Funciona? Tenho um cliente que quer colocar isto no 
escritório
dele para rodar alguns programas meus e eu não conheço esta 
tecnologia...
Alguém conhece ou já trabaçhou com isto?


Atenciosamente

Oswaldo dos Santos Araujo
http://www.santosaraujo.com.br
mailto:[EMAIL PROTECTED]





-- 
< 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

 

RES: RES: RES: [delphi-br] Número de registros Del phi 5

[Rodrigo Tognin]

entendi mais ou menos, me desculpe mas sou iniciante.
Como eu faço para pegar o valor do último registro e colocá-lo em uma
variável?
Tanto em Access como SQL 2000, é a mesma coisa? Eu não sei qual comando
tenho que dar para fazer isso...

Rodrigo Tognin

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Sérgio Durand
Enviada em: terça-feira, 5 de julho de 2005 15:17
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Número de registros Delphi 5


vc pode usar o max no select (que eu acho a melhor opcao),
ou então vc tb pode ordenar sua tabela pelo campo que é chave primaria e
daí sim vc pode usar o last que não vai ter problemas...

Sérgio Durand

> Rodrigo Tognin escreveu:
> > Me ocorreu mais uma dúvida...
> > Do jeito que eu estava fazendo não ia dar certo, porque é pego o
> número de
> > registros e somado mais um para começar um novo registro.
> > Mas se for excluído algum registro, o número irá se repetir, e é chave
> > primária, causando erro.
> >
> > Tem como eu pegar a apenas o código do último registro?
> > Não importando quanto registros tenham, o próximo sempre será o
> último mais
> > 1, eu não sei como pegar o código do último registro.






-- 
< 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

 

Re: [delphi-br] Arquivos INI

[Rogério]

Um ex:

no uses: IniFiles;

Var
  Cupom_ini : TIniFile;
Begin
Cupom_ini := 
TIniFile.Create(ExtractFileDir(Application.ExeName)+'\CUPOM.INI');
nVias := Cupom_ini.ReadInteger('VINCULADO', 'NumeroDeVias', 1);
Cupom_ini.Free;
end;

Neste caso a variável nVias será alimentada pelo arquivo CUPOM.INI - na 
seção 'VINCULADO' - item 'NumeroDeVias', caso o item não seja encontrado, o 
valor padrão será 1.

Acho que há um exemplo mais completo em www.clubedelphi.net

[]

Rogério Ricardo Fernandes
Desenvolvimento http://www.strategies.inf.br

- Original Message - 
From: "Wilson Valdevite" <[EMAIL PROTECTED]>
To: 
Sent: Monday, July 04, 2005 3:09 PM
Subject: [delphi-br] Arquivos INI


Galera, boa tarde...

Estou quebrando a cabeça em uma função que me retorne o valor de um arquivo 
.ini. Desculpe a pergunta mas apenas meu servidor de mail está funcionando.

Se alguem puder me ajudar, fico muito grato.

Wilson

[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

 

Re: RES: RES: [delphi-br] Número de registr os Delphi 5

[Sérgio Durand]

vc pode usar o max no select (que eu acho a melhor opcao),
ou então vc tb pode ordenar sua tabela pelo campo que é chave primaria e 
daí sim vc pode usar o last que não vai ter problemas...

Sérgio Durand

> Rodrigo Tognin escreveu:
> > Me ocorreu mais uma dúvida...
> > Do jeito que eu estava fazendo não ia dar certo, porque é pego o 
> número de
> > registros e somado mais um para começar um novo registro.
> > Mas se for excluído algum registro, o número irá se repetir, e é chave
> > primária, causando erro.
> >
> > Tem como eu pegar a apenas o código do último registro?
> > Não importando quanto registros tenham, o próximo sempre será o 
> último mais
> > 1, eu não sei como pegar o código do último registro.






-- 
< 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

 

[delphi-br] Dúvida no Delphi 2005

[Sérgio Durand]

Estou com uma duvida em relacao ao delphi 2005 (asp.net usando bdp)
qdo eu programava no delphi 6 usando o conjunto query -> provider ->
ClientDataSet, eu colocava os DBEdit no Form e colocava os botoes pra
inserir , apgar, prox, ultimo, etc e tal...

Com o Asp.Net usando o BdpAdapter -> DataSet -> DBWebDataSource e
outros componentes na paleta DBWeb... como que fica ??

No delphi 6 era ClientDataSet.Append ... ".Post" ... ".Delete" ...
".Next" ... com o provider era só dar um ApplyUpdates... e pronto..
estava td gravado no banco de dados...

No Asp.Net as unicas coisas que acho na internet é fazer atualizacao,
insersao e delecao "na mao" , criando SQL's e mandando executar pelo 
BdpSqlCommand 
No Asp.Net não tem nada mais pratico como era no Delphi 6 ???
Outra coisa que não achei é o famoso FieldByName tem certos campos 
que o usuario nem sabe da existencia dele, mas a gente precisa preencher 
 no delphi 6, qdo eu estava com o dataset em modo de edicao, era só 
dar um fieldbyname no respectivo campo e atribuir um valor depois um 
post e assunto encerrado...

No delphi 2005 (usando BDP) nao to achando nada disso...
A unica coisa que achei lendo na internet é que tem o data adapter que 
seria uma mistura de query+provider e o 'antigo' applyupdates que a 
gente dava no provider, "virou" 'autoupdate' no data adapter...

Já li o tutoria que tem na página About.com ... mas a parte de banco de 
dados não tem uma cobertura suficiente...

Agradeco qualquer ajuda..

Até mais,
Sérgio






-- 
< 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

 

[delphi-br] Bom, preciso de ajuda!!!

[dba_gomes]

Gente, primeiramente boa tarde

Bom tenho uma constante " const lab1010 = 'lab1-01' ", e agora estou em 
uma altura do processamendo que tenho uma string que gera 'lab1010' tem 
como pegar essa string e retornar o valor da constante...trata-la não 
como uma string mais sim como a constante.

Exemplo:

const
  lab1010 = 'lab1-01';
  lab1011 = 'lab1-02';
  .
  .
micro('lab'+info_login[1]+info_login[5]); //ex: micro('lab1010')
  .
  .

resultado da função micro retornar 'lab1-01' ou 'lab1-02';




-- 
< 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

 

RES: RES: RES: [delphi-br] Número de registros Del phi 5

[Rodrigo Tognin]

Select não é comando de SQL?
Estou fazendo no delphi, ainda não aprendi como usar uma query...

Se você puder me ajudar a inserir esse código no delphi...

Eu quero que, assim que a pessoa clique no botão Novo, no dbedit código tem
que aparecer o número do último registro mais um, só me falta isso.

Rodrigo Tognin

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Vinicius Ribeiro
Enviada em: terça-feira, 5 de julho de 2005 14:37
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Número de registros Delphi 5


tenta usar o Select Max..

Select max(codigo) from sua tabela


[ ]'s


Rodrigo Tognin escreveu:
> Me ocorreu mais uma dúvida...
> Do jeito que eu estava fazendo não ia dar certo, porque é pego o número de
> registros e somado mais um para começar um novo registro.
> Mas se for excluído algum registro, o número irá se repetir, e é chave
> primária, causando erro.
>
> Tem como eu pegar a apenas o código do último registro?
> Não importando quanto registros tenham, o próximo sempre será o último
mais
> 1, eu não sei como pegar o código do último registro.
>
> Obrigado
>
> Rodrigo Tognin
>




-- 
< 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

 

Res: [delphi-br] TClientSocket - D7

[Eduardo RC Neto]

Amigos, 

já resolvi o problema.

Basta instalar o package  dclsockets70.bpl, que os componentes vão para a
palheta Internet.

Ele está na pasta Bin da instalação do D7.

Tinha procurado errado no Google...

Abraços,
 
Eduardo RC Neto
Desenvolvimento de Sistemas
---
Archive ISP - Rio de Janeiro - RJ
[EMAIL PROTECTED]
www.archive.com.br
MSN: [EMAIL PROTECTED]


---Mensagem original---
 
De: Eduardo RC Neto
Data: 07/05/05 11:30:19
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] TClientSocket - D7
 
Bom dia a todos da comunidade. 

Amigos, estou com um probleminha: 

Preciso disparar uma mensagem pelo meu sistema, para outro usuário que
estiver 
conectado no mesmo sistema. Exemplificando melhor: 

O Setor de produção, irá fazer pedidos de material pelo sistema. Caso o
material que foi pedido 
não exista no estoque, gostaria de disparar uma mensagem para o usuário do
setor de estoque, para 
efetuar a devida compra desse material. 

Em um livro chamado "DELPHI API´S & Sockets", ele tem um exemplo do 
componente TClientSocket, e acho 
que dava para fazer isso (bastava gravar o IP do grupo de usuários na
entrada 
do sistema, e mandar uma mensagem para esses IP's) Mas acho que p 
TClientSocket" só "existiu" até o D5. 

Tem algum componente no D7 que posso utilizar essa facilidade Acho que
deve ter algum da paleta Indy, 
mas, tem tantos componentes que fica difícil verificar qual é. 

Se alguém pudesse me dar uma dica, ficaria agradecido 

Abraços, 

Eduardo RC Neto 
Desenvolvimento de Sistemas 
--- 
Archive ISP - Rio de Janeiro - RJ 
[EMAIL PROTECTED] 
www.archive.com.br 
MSN: [EMAIL PROTECTED]

[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

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!. 


 

[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

<*> 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

 

Re: RES: RES: [delphi-br] Número de registr os Delphi 5

[Vinicius Ribeiro]

tenta usar o Select Max..

Select max(codigo) from sua tabela


[ ]'s


Rodrigo Tognin escreveu:
> Me ocorreu mais uma dúvida...
> Do jeito que eu estava fazendo não ia dar certo, porque é pego o número de
> registros e somado mais um para começar um novo registro.
> Mas se for excluído algum registro, o número irá se repetir, e é chave
> primária, causando erro.
> 
> Tem como eu pegar a apenas o código do último registro?
> Não importando quanto registros tenham, o próximo sempre será o último mais
> 1, eu não sei como pegar o código do último registro.
> 
> Obrigado
> 
> Rodrigo Tognin
> 


-- 

Atenciosamente,


Vinicius Ribeiro
[EMAIL PROTECTED]

GNU/Linux User #293209.
Get counted: http://counter.li.org/


-- 
< 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

 

RES: RES: [delphi-br] Número de registros Delphi 5

[Rodrigo Tognin]

Me ocorreu mais uma dúvida...
Do jeito que eu estava fazendo não ia dar certo, porque é pego o número de
registros e somado mais um para começar um novo registro.
Mas se for excluído algum registro, o número irá se repetir, e é chave
primária, causando erro.

Tem como eu pegar a apenas o código do último registro?
Não importando quanto registros tenham, o próximo sempre será o último mais
1, eu não sei como pegar o código do último registro.

Obrigado

Rodrigo Tognin

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de TI - Trianon
Enviada em: terça-feira, 5 de julho de 2005 10:32
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Número de registros Delphi 5


Rogério veja se a unit "Db" está na uses de seu código.
Pois a unit que contem a função recordcount é esta.

Valeu.


At 05/07/2005 13:13, you wrote:
>Já fiz isso, ele não reconhece o comando... dá erro
>
>será q meu delphi tá com bug? Eu atualizei ele faz pouco tempo...
>
>Valeu pela ajuda
>
>-Mensagem original-
>De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
>nome de Eduardo
>Enviada em: terça-feira, 5 de julho de 2005 09:26
>Para: delphi-br@yahoogrupos.com.br
>Assunto: Re: [delphi-br] Número de registros Delphi 5
>
>
>Não tem 
>
>Acho q algo esta errado no seu codigo. ou por algum bug não aparece no cod.
>
>Coloque na mão grande e compile.
>
>Eduardo
>   - Original Message -
>   From: Rodrigo Tognin
>   To: Delphi-Br
>   Sent: Tuesday, July 05, 2005 9:21 AM
>   Subject: [delphi-br] Número de registros Delphi 5
>
>
>   Como faço para atribuir o número de registros de um banco de dados
Access
>a
>   uma variável no Delphi 5?
>   Uso ADO para conectar. No Delphi 7 eu uso o seguinte: Num_Registros :=
>   ..RecordCount;
>   Mas no Delphi 5 não tem o RecordCount... tem algum outro jeito??
>
>   Rodrigo Tognin
>   Estudante e estagiário
>   Técnico em informática
>   ESALQ/USP - IPEF
>



-- 
< 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

 

[delphi-br] Arquivos INI

[Wilson Valdevite]

Galera, boa tarde...

Estou quebrando a cabeça em uma função que me retorne o valor de um arquivo 
.ini. Desculpe a pergunta mas apenas meu servidor de mail está funcionando.

Se alguem puder me ajudar, fico muito grato.

Wilson

[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

<*> 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

 

Re: [delphi-br] Contagem

[Emerson Moreno]

Beleza amigo, que bom que conseguiu, mas peço desculpas pois escrevir
uma parte do código errado, pois meu chefe estava perto e tive que te
ajudar rápido que acabei escrevendo errado, mas de certa forma acabei
lhe dispertando a curiosidade para procurar entender.

Em 05/07/05, Info Desenvolvimento<[EMAIL PROTECTED]> escreveu:
> Caso resolvido
> 
> Depois de olhar, olhar e olhar vi onde está o erro.
> 
> Muito obrigado..
> PAULO FERNANDES
> 
> 
> 
> [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
> 
> 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!. 


-- 
[]'s

Emerson Moreno
O grande sábio aprende por ensinar!


-- 
< 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

 

Re: [delphi-br] Skype

[Emerson Moreno]

Não amigo, não uso, só tenho msn.

Em 05/07/05, Info Desenvolvimento<[EMAIL PROTECTED]> escreveu:
> Emerson Moreno
> 
> Tu usa skype?
> 
> meu usuário eh: pc.fernandes
> 
> 
> 
> [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
> 
> 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!. 


-- 
[]'s

Emerson Moreno
O grande sábio aprende por ensinar!


-- 
< 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

 

RES: RES: [delphi-br] Número de registros Delphi 5

[Rodrigo Tognin]

Funcionou!
Coloquei db no uses, e tinha esquecido de converter o valor

codigo.Text := IntToStr(dm.DtSetCadastro.recordcount);

Beleza, obrigado!

Rodrigo Tognin

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de TI - Trianon
Enviada em: terça-feira, 5 de julho de 2005 10:32
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Número de registros Delphi 5


Rogério veja se a unit "Db" está na uses de seu código.
Pois a unit que contem a função recordcount é esta.

Valeu.


At 05/07/2005 13:13, you wrote:
>Já fiz isso, ele não reconhece o comando... dá erro
>
>será q meu delphi tá com bug? Eu atualizei ele faz pouco tempo...
>
>Valeu pela ajuda
>
>-Mensagem original-
>De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
>nome de Eduardo
>Enviada em: terça-feira, 5 de julho de 2005 09:26
>Para: delphi-br@yahoogrupos.com.br
>Assunto: Re: [delphi-br] Número de registros Delphi 5
>
>
>Não tem 
>
>Acho q algo esta errado no seu codigo. ou por algum bug não aparece no cod.
>
>Coloque na mão grande e compile.
>
>Eduardo
>   - Original Message -
>   From: Rodrigo Tognin
>   To: Delphi-Br
>   Sent: Tuesday, July 05, 2005 9:21 AM
>   Subject: [delphi-br] Número de registros Delphi 5
>
>
>   Como faço para atribuir o número de registros de um banco de dados
Access
>a
>   uma variável no Delphi 5?
>   Uso ADO para conectar. No Delphi 7 eu uso o seguinte: Num_Registros :=
>   ..RecordCount;
>   Mas no Delphi 5 não tem o RecordCount... tem algum outro jeito??
>
>   Rodrigo Tognin
>   Estudante e estagiário
>   Técnico em informática
>   ESALQ/USP - IPEF
>



-- 
< 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

 

Re: RES: [delphi-br] Número de registros Delphi 5

[TI - Trianon]

Rogério veja se a unit "Db" está na uses de seu código.
Pois a unit que contem a função recordcount é esta.

Valeu.


At 05/07/2005 13:13, you wrote:
>Já fiz isso, ele não reconhece o comando... dá erro
>
>será q meu delphi tá com bug? Eu atualizei ele faz pouco tempo...
>
>Valeu pela ajuda
>
>-Mensagem original-
>De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
>nome de Eduardo
>Enviada em: terça-feira, 5 de julho de 2005 09:26
>Para: delphi-br@yahoogrupos.com.br
>Assunto: Re: [delphi-br] Número de registros Delphi 5
>
>
>Não tem 
>
>Acho q algo esta errado no seu codigo. ou por algum bug não aparece no cod.
>
>Coloque na mão grande e compile.
>
>Eduardo
>   - Original Message -
>   From: Rodrigo Tognin
>   To: Delphi-Br
>   Sent: Tuesday, July 05, 2005 9:21 AM
>   Subject: [delphi-br] Número de registros Delphi 5
>
>
>   Como faço para atribuir o número de registros de um banco de dados Access
>a
>   uma variável no Delphi 5?
>   Uso ADO para conectar. No Delphi 7 eu uso o seguinte: Num_Registros :=
>   ..RecordCount;
>   Mas no Delphi 5 não tem o RecordCount... tem algum outro jeito??
>
>   Rodrigo Tognin
>   Estudante e estagiário
>   Técnico em informática
>   ESALQ/USP - IPEF
>
>
>
>
>
>--
>< 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
>
>
>
>
>


[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

<*> 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

 

RES: [delphi-br] Número de registros Delphi 5

[Rodrigo Tognin]

Já fiz isso, ele não reconhece o comando... dá erro

será q meu delphi tá com bug? Eu atualizei ele faz pouco tempo...

Valeu pela ajuda

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Eduardo
Enviada em: terça-feira, 5 de julho de 2005 09:26
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Número de registros Delphi 5


Não tem 

Acho q algo esta errado no seu codigo. ou por algum bug não aparece no cod.

Coloque na mão grande e compile.

Eduardo
  - Original Message -
  From: Rodrigo Tognin
  To: Delphi-Br
  Sent: Tuesday, July 05, 2005 9:21 AM
  Subject: [delphi-br] Número de registros Delphi 5


  Como faço para atribuir o número de registros de um banco de dados Access
a
  uma variável no Delphi 5?
  Uso ADO para conectar. No Delphi 7 eu uso o seguinte: Num_Registros :=
  ..RecordCount;
  Mas no Delphi 5 não tem o RecordCount... tem algum outro jeito??

  Rodrigo Tognin
  Estudante e estagiário
  Técnico em informática
  ESALQ/USP - IPEF





-- 
< 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

 

Re: [delphi-br] Conversao de string para char

[Thiago]

primeiro verifica se ela esta vazia, se não estiver
faça assim, por exemplo:

pegue sua string e coloque a posição do caráctere:

var
tch:char;
st:string;
begin
st:='1';

if st='' then st:='0';

tch:=st[1]; // estou pegando o char 1 da minha string;

end;


- Original Message - 
From: "Florentino - Agrosoft" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, July 05, 2005 7:54 AM
Subject: [delphi-br] Conversao de string para char


Amigos,
Desculpem a pergunta básica, mas procurei na documentação do Delphi e não
encontrei (de repente estava no meu nariz e nao vi!). Como faço para
converter uma variável string (tam=1) em uma variável char ?

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









-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.8.8/37 - Release Date: 01/07/2005






___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/




-- 
< 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

 

Re: [delphi-br] Impressão frente-verso

[Rogério]

Creio ter visto algo no ClubeDelhi (www.clubedelphi.net)

[]

Rogério Ricardo Fernandes
Desenvolvimento http://www.strategies.inf.br

- Original Message - 
From: "Marcão" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, July 05, 2005 9:56 AM
Subject: [delphi-br] Impressão frente-verso


Bom dia!
Gostaria de saber se alguém da lista já trabalhou com impressão frente-
verso pelo Quick Report. Já configurei a propriedade Duplex do
PrinterSettings como True mas não funciona. Por outros aplicativos (MS
Word) funciona normalmente.
Utilizo a versão 3.0.9 do Quick + Delphi 5.
Alguém teria alguma dia?
Agradeço desde já a ajuda dos colegas.
[]'s
Marcos





-- 
< 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

 

Re: [delphi-br] como fazer essa query

[Rogério]

Se entendi o problema está na formatação do CNPJ

Há várias formas de resolver este problema, pergunto:

_Estais criando uma rotina em Delphi?
_No MySql você pode criar Functions? (Não uso o MySql)
_Precisarás deste select somente uma vez?

[]

Rogério Ricardo Fernandes
Desenvolvimento http://www.strategies.inf.br

- Original Message - 
From: "Francisco Carlos" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, July 05, 2005 10:05 AM
Subject: [delphi-br] como fazer essa query


> uso o banco de dados mysql e estou desenvolvendo um
> aplicacao em delphi
> problema: em uma tabela eu tenho o campo de cnpj da
> seguinte forma 12345678/1234-12 tenho q relacionar
> esse arquivo com outra tabela que tem o formato de
> cnpj diferente 12345678123412 alem disso tenho tambem
> q fazer uma busca de + 2 campos
> as tabelas seriam essas
>
> notas entradas
> nr.cnpj empresa   nr.nota serie  valordt entrada
> cnpj emitente
> 12345678/1234-12  123456   1 150,00   31/01/2005
> 98765432987678
>
> tenho q buscar no arquivo de saidas essa nota
>
> notas saidas
> nr.cnpj empresa   nr.nota serie  valordt.saidas
> cnpj cliente
> 98765432/9876-78  123456   1 150,00   15/12/2004
> 12345678123412
>
> como fazer uma query que busque os dados entre as
> empresas, minha ideia seria criar uma query informado
> que no arquivo de saidas eu encontrei ou nao
> os dados da nota fiscal de entrada  e virce versa,
> isso é uma auditoria
>
> Agradeco a todos que puderem me ajudar
>
>
>
>
>
> ___
> Yahoo! Acesso Grátis - Internet rápida e grátis.
> Instale o discador agora! http://br.acesso.yahoo.com/
>
>
> -- 
> < 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

 

Re: RES: [delphi-br] Conversao de string para char

[Valfrid-Ly Silva Couto]

Walter, é para CHAR e não PCHAR!!

--- Walter Alves Chagas Junior
<[EMAIL PROTECTED]> escreveu:

> É o PChar()
> 
>  
>  
>  []s
> 
>  Walter Alves Chagas Junior
>  Projeto e desenvolvimento
>  Telemont Engenharia de telecomunicações
>  Belo Horizonte - MG - Brazil 
>  [EMAIL PROTECTED]
>  Fone: (31) 3389-8215 Fax: (31) 3389-8200
>  
> 
> > -Mensagem original-
> > De: Florentino - Agrosoft
> [mailto:[EMAIL PROTECTED]
> > Enviada em: terça-feira, 5 de julho de 2005 07:55
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: [delphi-br] Conversao de string para char
> > 
> > 
> > Amigos,
> > Desculpem a pergunta básica, mas procurei na
> documentação do 
> > Delphi e não encontrei (de repente estava no meu
> nariz e nao 
> > vi!). Como faço para converter uma variável string
> (tam=1) em 
> > uma variável char ?
> > 
> > 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
> > 
> > 
> > 
> > 
> >  
> > 
> > 
> 
> 
> [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
> 
> 
> 
> http://br.yahoo.com/info/utos.html
> 
>  
> 
> 
> 


Valfrid-Ly Silva Couto
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ 15114646





___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
< 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

 

Re: [delphi-br] Detalhes

[Rogério]

Podes colocar no evendo 'OnKeyPress' o que queres que seja aceito, ex:

Para aceitar somente números, vírgula, ponto, delete e backspace:

if not (key in ['0'..'9','.',',', #8]) then
 Key := #0;

Se for para letras:

if not (key in ['A'..'Z', #8]) then
 Key := #0;

Espero ter ajudado,

Rogério Ricardo Fernandes
Desenvolvimento http://www.strategies.inf.br

- Original Message - 
From: "Cristiano" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, July 05, 2005 10:27 AM
Subject: [delphi-br] Detalhes



Sou iniciante em programação e gostaria de saber como eu faço para correr um 
DBEdit a procura de caracteres especiais do tipo ( / , - , @ ) e tb como eu 
faço para evitar a entrada de números em lugar de letras em um campo por 
exemplo do DBEdit.

Fico muito grato a quem me ajudar.



Ass: Cristiano


__
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]

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

 

[delphi-br] Configuração cliente

[Aldinei Simoes]

 Tenho um servidor FB 1.5 com alguns clientes com a GDS32, usando um
sistema Delphi que faz algumas atualizações com o applyupdate, em
alguns casos essas atualizações não ocorrem.
A instalação do FB é padrão em um server windows 2003 com 80 clientes
fazendo atualizaçõeso tempo todo, tem alguma configuração que devo
fazer no server para que não ocorra mais a falha na atualização?
P.S. não da nenhuma msg de erro

Aldinei





-- 
< 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

 

Re: [delphi-br] Library Path

[Rogério]

Menu Tools->Environment Options->Library->Library Path (...)->Browse(...) 
escolha o path/caminho -> Add->Ok

[]

Rogério Ricardo Fernandes
Desenvolvimento http://www.strategies.inf.br

- Original Message - 
From: "Fernando Assunção" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, July 05, 2005 10:31 AM
Subject: [delphi-br] Library Path


Como adicionar o caminho "c:\arquivo de
programas\borland\delphi7\source\indy" no Library Path?


Fernando.



-- 
< 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

 

Re: [delphi-br] Número de registros Delphi 5

[Eduardo]

Não tem 

Acho q algo esta errado no seu codigo. ou por algum bug não aparece no cod.

Coloque na mão grande e compile.

Eduardo
  - Original Message - 
  From: Rodrigo Tognin 
  To: Delphi-Br 
  Sent: Tuesday, July 05, 2005 9:21 AM
  Subject: [delphi-br] Número de registros Delphi 5


  Como faço para atribuir o número de registros de um banco de dados Access a
  uma variável no Delphi 5?
  Uso ADO para conectar. No Delphi 7 eu uso o seguinte: Num_Registros :=
  ..RecordCount;
  Mas no Delphi 5 não tem o RecordCount... tem algum outro jeito??

  Rodrigo Tognin
  Estudante e estagiário
  Técnico em informática
  ESALQ/USP - IPEF



  -- 
  < 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

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

<*> 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

 

Re: [delphi-br] Contagem

[Info Desenvolvimento]

Caso resolvido

Depois de olhar, olhar e olhar vi onde está o erro.

Muito obrigado..
PAULO FERNANDES



[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

<*> 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

 

[delphi-br] TClientSocket - D7

[Eduardo RC Neto]

Bom dia a todos da comunidade. 

Amigos, estou com um probleminha:

Preciso disparar uma mensagem pelo meu sistema, para outro usuário que
estiver
conectado no mesmo sistema. Exemplificando melhor:

O Setor de produção, irá fazer pedidos de material pelo sistema. Caso o
material que foi pedido
não exista no estoque, gostaria de disparar uma mensagem para o usuário do
setor de estoque, para
efetuar a devida compra desse material.

Em um livro chamado "DELPHI API´S & Sockets", ele tem um exemplo do 
componente TClientSocket, e acho
que dava para fazer isso (bastava gravar o IP do grupo de usuários na
entrada
do sistema, e mandar uma mensagem para esses IP's) Mas acho que p 
TClientSocket" só "existiu" até o D5.

Tem algum componente no D7 que posso utilizar essa facilidade Acho que
deve ter algum da paleta Indy,
mas, tem tantos componentes que fica difícil verificar qual é.

Se alguém pudesse me dar uma dica, ficaria agradecido
 
Abraços,
 
Eduardo RC Neto
Desenvolvimento de Sistemas
---
Archive ISP - Rio de Janeiro - RJ
[EMAIL PROTECTED]
www.archive.com.br
MSN: [EMAIL PROTECTED]

[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

<*> 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

 

[delphi-br] Add Library

[Fernando Assunção]

No menu Tools/environment Options/Library

não consigo incluir uma nova library, alguém pode me ajudar?


Fernando 



-- 
< 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

 

RES: RES: [delphi-br] Off Gerenciamento deficiente (desabafo)

[Walter Alves Chagas Junior]

Lidar com pessoas interagindo com sistemas é uma coisa muito complicada,
porque o sistema é um, feito sob a percepção do analista e do desenvolvedor,
para operar com pessoas que possuem as mais variadas percepções a respeito
do mesmo. Por isso que eu acho que o mais ideal para este tipo de problema,
é você envolver o usuário desde o começo. Chamar o usuário pra participar.
Aliás, na minha opinião, você deve mexer muito mais com o usuário final do
futuro sistema do que com o cliente em sí. O cliente você deve manter ele
informado sobre o andamento do projeto e as etapas do que está sendo feito.
Mas o Feedback do processo? Esse você tem que priorizar é a ponta mesmo.
Porque é a ponta que faz o processo andar, sabem o que é preciso, o que tem
que ser travado e o que não pode ser permitido. É a ponta que é fundamental,
e que muitos analistas se esquecem disto. Tratam o sistema, o tempo todo, só
com o cliente e esquecem que muitas vezes não é o cliente quem vai operar o
supra-citado. Daí que acaba dando nisto. O usuário não participou, não
opinou e obviamente, ele não vai aceitar facilmente enfiarem goela abaixo
dele um produto que ele não viu, e muito menos acompanhou seu crescimento.

Por isso que eu falo, que mexer com usuário é uma questão de jogo de
cintura. 

Quanto a questão do usuário fizer qualquer gracinha no sistema. Vamos
relembrar as regras e diretivas de permissões de acesso e direitos do
usuário. Talvez ao invés de chegar numa reunião e disparar tiro contra todo
mundo, pode-se implementar este tipo de recurso e evitar problemas futuros.
Mas concordo também que o log de atividades é bem vindo. Resta saber se
haverá tempo disponível para fazer tudo isto no sistema hehehe
 
 
 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia de telecomunicações
 Belo Horizonte - MG - Brazil 
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200
 

> -Mensagem original-
> De: Osmar de Souza Júnior [mailto:[EMAIL PROTECTED]
> Enviada em: terça-feira, 5 de julho de 2005 09:11
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: RES: [delphi-br] Off Gerenciamento deficiente (desabafo)
> 
> 
> 
> 
> Só para complementar, gostaria de deixar meu testemunho.
> Os usuários do nosso sistema são pessoas de assistência técnica (lojas
> de informática).
> Esses têm conhecimento, para se quiserem, derrubar qualquer sistema,
> por mais bem feito que seja.
> 
> Então desde o princípio, já tínhamos isso em mente.
> Criamos um sistema de LOG, que se o usuário fizer qualquer gracinha,
> como excluir um cadastro de clientes, ou alterar qualquer coisa, vai
> ficar registrado no Log. E criamos uma interface bem fácil para o
> gerente consultar esse Log. Então o gerente pode ver, a qualquer hora,
> se alguém alterou ou apagou qualquer coisa no sistema, ou mesmo se
> deixou de fazer.
> 
> No resto, o sistema é aberto, sem muitas restrições.
> Isso propicia uma mudança de cultura, o sistema não tem muitas travas,
> o que simplifica.
> E se algum espertinho tentar burlar, vai ficar registrado.
> 
> E o mais importante de tudo, criamos uma boa relação com eles.
> O que eles solicitam de alterações para melhorar a acessabilidade, nós
> fazemos.
> 
> Bingo. Satisfação garantida.
> 
> []s.
> 
> --- Em delphi-br@yahoogrupos.com.br, Walter Alves Chagas Junior
> <[EMAIL PROTECTED]> escreveu
> > Metendo o bedelho nesta estoria
> > 
> > Sistemas são uma arte complicada demais de você lidar. Você faz um
> produto
> > que não é para você usar e sim para outro usar, e na maioria das
> vezes, este
> > outro é uma pessoa totalmente leiga no computador e também 
> no assunto.
> > 
> > Quando o usuário quer derrubar o projeto, ele derruma mesmo! Querer
> bater de
> > frente com o usuário é bobagem. Você sai perdendo. O que 
> deve ser feito
> > então
> > 
> > O primeiro passo, em um projeto de sistema, é procurar envolver o
> usúario no
> > processo. Você analista, tem que passar pra ele, que a 
> funcionalidade,
> > eficácia e eficiência deste sistema depende muito da 
> participação dele.
> > Coloque o usuário como uma peça fundamental no processo pra ver se
> ele não
> > participa. Lógico que participa. Tanto que nas técnicas de 
> entrevistas,
> > estudadas na análise de sistemas, existe o tópico de chão de fábrica
> e do
> > questionário aplicado ao usuário final. Este geralmente costuma
> saber muita
> > coisa que o seu cliente não sabe, ou não se lembra porque quem
> destrincha o
> > processo na empresa, é o funcionario diretamente ligado a ele.
> > 
> > Outra coisa fundamental é o projeto piloto do sistema. É neste
> projeto que
> > devem ser ajustados os ultimos detalhes e incluidas as alterações do
> > sistema. E é nessa hora que o usuário tem que ter a 
> participação total. 
> > 
> > Outra coisa: sistemas devem ter interfaces simples, objetivas e
> práticas.
> > Tudo que o usário precisa, deve estar facilmente ao alcance dele. A
> > informação que ele precisa, tem que estar facil de ser rapid

[delphi-br] Re: Re: Firebird ou MySQL???

[Cristiano Oliveira]

Pessoal, obrigado pelas dicas.
 
[]s.
Cristiano Oliveira.




-- 
< 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

 

[delphi-br] Dúvidas

[Rodrigo Tognin]

Como faço para atribuir o número de registros de um banco de dados Access a
uma variável no Delphi 5?
Uso ADO para conectar. No Delphi 7 eu uso o seguinte: Num_Registros :=
..RecordCount;
Mas no Delphi 5 não tem o RecordCount... tem algum outro jeito??

Bom dia pessoal.
Eusou iniciante em Delphi. Coloquei um DbGrid no meu programa, funciona, mas
eu gostaria que a barra de rolagem dele fosse mais "dinâmica", ou seja,
conforme a pessoa arraste ela, a tabela já vá rodando, e não como aconteceu,
a pessoa tem que soltar o mouse para a tabela descer.
Tem como arrumar isso?

Obrigado

(Anônimo)



-- 
< 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

 

[delphi-br] Library Path

[Fernando Assunção]

Como adicionar o caminho "c:\arquivo de 
programas\borland\delphi7\source\indy" no Library Path?


Fernando. 



-- 
< 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

 

Re: [delphi-br] Conversao de string para char

[Eric Roberto Darruiz]

Ou então ele pode usar um Typecast: Char(string), mas considerando q 
verificações se a string tem lenght = 1 antes de fazer esse typecast. Caso 
contrário vai gerar uma exception. =[

[]'s

Raising Solutions Software Ltda. - http://www.raising.com.br/novo/
Eric Roberto Darruiz - Desenvolvedor de Sistemas Windows/Linux
ICQ UIN: 78562726
MSN Messenger: [EMAIL PROTECTED]
Mail: [EMAIL PROTECTED]

- Original Message - 
From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, July 05, 2005 9:00 AM
Subject: RES: [delphi-br] Conversao de string para char


É o PChar()



 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia de telecomunicações
 Belo Horizonte - MG - Brazil
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200


> -Mensagem original-
> De: Florentino - Agrosoft [mailto:[EMAIL PROTECTED]
> Enviada em: terça-feira, 5 de julho de 2005 07:55
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Conversao de string para char
>
>
> Amigos,
> Desculpem a pergunta básica, mas procurei na documentação do
> Delphi e não encontrei (de repente estava no meu nariz e nao
> vi!). Como faço para converter uma variável string (tam=1) em
> uma variável char ?
>
> 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
>
>
>
>
>
>
>


[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













___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
< 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

 

[delphi-br] Detalhes

[Cristiano]

Sou iniciante em programação e gostaria de saber como eu faço para correr um 
DBEdit a procura de caracteres especiais do tipo ( / , - , @ ) e tb como eu 
faço para evitar a entrada de números em lugar de letras em um campo por 
exemplo do DBEdit.

Fico muito grato a quem me ajudar.

 

Ass: Cristiano


__
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]
 
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

 

[delphi-br] Skype

[Info Desenvolvimento]

Emerson Moreno

Tu usa skype?

meu usuário eh: pc.fernandes



[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

<*> 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

 

[delphi-br] << Delphi 5 + MySql>>

[F D]

Sou iniciante em delphi e gostaria se alguem tiver alguma apostila ou artigos 
que me mostrasse como faço para conectar o delphi5 com o mysql. Não sei como 
fazer.
 
Grato
 
Francisco

__
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]
 
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

 

[delphi-br] OFF-TOPIC: Qual a opinião sobre o Zebedee

[Eduardo Paci Galvão]

Pessoal,

Estou pensando em utilizar o Zebedee para
acessar um banco em Firebird via Internet.

Os atrativos foram o preço (gratuito) e a aparente
fácil configuração.

Qual é a opinião de vocês a respeito?

Saudações,
Eduardo Paci Galvão
Engenheiro Eletricista UFMG 1990
www.egalvao.com.br
MSN: [EMAIL PROTECTED]

[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

<*> 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

 

[delphi-br] como fazer essa query

[Francisco Carlos]

uso o banco de dados mysql e estou desenvolvendo um
aplicacao em delphi
problema: em uma tabela eu tenho o campo de cnpj da
seguinte forma 12345678/1234-12 tenho q relacionar
esse arquivo com outra tabela que tem o formato de
cnpj diferente 12345678123412 alem disso tenho tambem
q fazer uma busca de + 2 campos
as tabelas seriam essas

notas entradas
nr.cnpj empresa   nr.nota serie  valordt entrada  
cnpj emitente
12345678/1234-12  123456   1 150,00   31/01/2005  
98765432987678

tenho q buscar no arquivo de saidas essa nota

notas saidas
nr.cnpj empresa   nr.nota serie  valordt.saidas   
cnpj cliente
98765432/9876-78  123456   1 150,00   15/12/2004  
12345678123412

como fazer uma query que busque os dados entre as
empresas, minha ideia seria criar uma query informado
que no arquivo de saidas eu encontrei ou nao
os dados da nota fiscal de entrada  e virce versa,
isso é uma auditoria

Agradeco a todos que puderem me ajudar





___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
< 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

 

[delphi-br] OFF_TOPIC

[luciano]

Alguém sabe onde posse encontrar caracteres de impressão. Pois quero
imprimir através de programas DOS em impressoras lazer e jato de tinta e
preciso destes caracteres para configurar a impressão.

Grato



-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 267.8.8 - Release Date: 30/06/05


--
Essa mensagem foi verificada contra vírus e conteúdo malicioso pelo Lisa 
Antivírus.



-- 
< 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

 

[delphi-br] Re: Off Gerenciamento deficiente (desabafo)

[carlos alberto do amaral]

Olá,

   Tudo o que eu disse, o Luciano, já havia sintetizado melhor...


   Um abraço,


  Carlos


--- Em delphi-br@yahoogrupos.com.br, "carlos alberto do amaral" 
<[EMAIL PROTECTED]> escreveu
> Olá Leandro,
> 
>   Como o Walter já comentou, fazer do usuário um "mini-analista-de-
> sistemas", isso ajuda e muito, claro, dependendo do seu contrato 
(se 
> o sistema será customizado ou não, para a empresa ), bloquear as 
> várias solicitações de alteração, se não fica inviável.
> 
> "Ao ministrar um treinamento, fazer quem recebeu por tal
> treinamento assinar
> um recibo onde teria data, hora de início, hora do fim e
> tópicos abordados."  
> 
>Neste caso, crítico, se possível, fazer uma avaliação, tanto do 
> treinamento (por parte do usuário) quanto do usuário treinado (por 
> parte do treinador, um mini teste com perguntas sobre o 
sistema)...  
> 
>Treinamento(normalmente, feito com uma base "LIMPA", o que pode 
> diferenciar da realidade do usuário), sim importante, mas você faz 
> uma coisa chamada "IMPLANTAÇÃO"??, ou seja, acompanhar os usuários, 
> nos processos iniciais, para realmente verificar se os erros 
existem 
> (veja bem, existem erros de sistemas e "ERROS DE MÁQUINA", para os 
> usuários é tudo ***ERRO DE SISTEMA***) e ensiná-los a utilizar o 
> sistema, como muitos dizem: domesticá-los, não gosto deste termo, 
> pois existem usuários bem acima da média.
> 
>Manter um histórico rígido, ou seja, qq alteração/exclusão no 
> sistema, manter no arquivo de histórico de operações que somente o 
> BOSS e você poderá ter acesso... Por acaso, estamos migrando um 
> sistema de contas a pagar do Clipper para o Delphi c/ Oracle, no 
> Clipper já tínhamos uma série de rotinas que eram gravadas em 
> histórico, agora com Oracle, uma das primeiras perguntas dos 
> operadores era se iria gravar as operações em histórico, 
> simplesmente, falamos que algumas rotinas iriam, sendo que a 
maioria 
> são, ou seja, se houver um "confronto", estamos muito 
> bem "documentados" para não levar esporro de chefe alheio ao 
sistema, 
> basta tirar um relatório na frente do "chefe".  Resumindo: procure 
se 
> auto-proteger.
> 
> 
> Um abraço,
> 
> Carlos 
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "Campus" <[EMAIL PROTECTED]> escreveu
> > hehehe, tá certo Walter, é pura verdade.
> > 
> > Eu tenho clientes que até hoje permanecem em clipper por não 
> aceitarem o uso
> > do windows, eles não querem nem saber de trocar, acham muito 
> complicado,
> > janela pra cá, menu pra lá. Não tem conversa.
> > 
> > Um grande problema eu enfrento quando minha empresa substitui 
> outra, nesses
> > casos tem sabotagem sim, muitos usuários não querem a troca, 
porque 
> a parte
> > deles funciona. Com a troca, muda a filosofia de trabalho, tem 
> treinamento,
> > aprendizado etc. Disso os usuários não gostam. Sem falar que as 
> vezes
> > conhecem a pessoa que tinha o sistema anterior.
> > 
> > Tive um caso de sabotagem de um funcionário, que depois fui 
> descobrir, havia
> > indicado a empresa que estava com o sistema implantado lá.
> > 
> > São casos isolados, mas reais, e dizer que falar em sabotagem é
> > justificativa para quem não sabe fazer sistemas está longe da 
> realidade.
> > 
> > 
> > - Original Message - 
> > From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
> > To: 
> > Sent: Monday, July 04, 2005 6:33 PM
> > Subject: RES: [delphi-br] Off Gerenciamento deficiente (desabafo)
> > 
> > 
> > Metendo o bedelho nesta estoria
> > 
> > Sistemas são uma arte complicada demais de você lidar. Você faz 
um 
> produto
> > que não é para você usar e sim para outro usar, e na maioria das 
> vezes, este
> > outro é uma pessoa totalmente leiga no computador e também no 
> assunto.
> > 
> > Quando o usuário quer derrubar o projeto, ele derruma mesmo! 
Querer 
> bater de
> > frente com o usuário é bobagem. Você sai perdendo. O que deve ser 
> feito
> > então
> > 
> > O primeiro passo, em um projeto de sistema, é procurar envolver o 
> usúario no
> > processo. Você analista, tem que passar pra ele, que a 
> funcionalidade,
> > eficácia e eficiência deste sistema depende muito da participação 
> dele.
> > Coloque o usuário como uma peça fundamental no processo pra ver 
se 
> ele não
> > participa. Lógico que participa. Tanto que nas técnicas de 
> entrevistas,
> > estudadas na análise de sistemas, existe o tópico de chão de 
> fábrica e do
> > questionário aplicado ao usuário final. Este geralmente costuma 
> saber muita
> > coisa que o seu cliente não sabe, ou não se lembra porque quem 
> destrincha o
> > processo na empresa, é o funcionario diretamente ligado a ele.
> > 
> > Outra coisa fundamental é o projeto piloto do sistema. É neste 
> projeto que
> > devem ser ajustados os ultimos detalhes e incluidas as alterações 
do
> > sistema. E é nessa hora que o usuário tem que ter a participação 
> total.
> > 
> > Outra coisa: sistemas devem ter interfaces simples, objetivas e 
> práticas.
> > 

[delphi-br] Impressão frente-verso

[Marcão]

Bom dia!
Gostaria de saber se alguém da lista já trabalhou com impressão frente-
verso pelo Quick Report. Já configurei a propriedade Duplex do 
PrinterSettings como True mas não funciona. Por outros aplicativos (MS 
Word) funciona normalmente.
Utilizo a versão 3.0.9 do Quick + Delphi 5.
Alguém teria alguma dia?
Agradeço desde já a ajuda dos colegas.
[]'s
Marcos





-- 
< 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

 

Re: [delphi-br] Contagem

[Info Desenvolvimento]

Desculpa não escrevi o que fiz.

No meu SQL criei um campo calculado

No evento CalcFields da minha Query coloquei o código que ficou assim;

procedure TFichaIndivSobrenm.SQL_FICHAINDIVCalcFields(DataSet: TDataSet);
Var
  Nome, Sobrenome, Nome2,  NomeSobrenome : String;
  Sobra : Integer;
Begin
 sobra := 0;
 Nome := Trim(SQL_FICHAINDIV.FieldByName('NMCIVIL').AsString);
 Sobrenome := Trim(SQL_FICHAINDIV.FieldByName('SOBRENOME').AsString);
 Sobra := Length(Nome) - Length(Sobrenome);
 //Nome2 := Não entendi esse cara
 NomeSobrenome := Sobrenome + ', '+Copy(Nome, 1, 8);
 SQL_FICHAINDIV.FIELDBYNAME('SOBRENM').ASSTRING := NomeSobrenome;
end;

Gerando relatório

Nome da pessoa: Benedita Lourdes de Andrade
Sobrenome: ANDRADE
Está saindo assim: ANDRADE, Benedita L
Faltou : ourdes de
Como deve sair: ANDRADE, Benedita Lourdes de






[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

<*> 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

 

[delphi-br] Indices no Paradox

[Wilson Valdevite]

Mestres do parados,

Gostaria de saber de tem como deletar e recriar um índice de uma tabela via 
código...

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

<*> 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

 

[delphi-br] componente de compactação tipo winzip

[faustofrca]

Bom dia, alguém conhece e poderia me indicar um componente para backup 
que armazenasse os dados no formato do winzip.
Utilizo delphi 7.

Grato
Fausto




-- 
< 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

 

RES: [delphi-br] Conversao de string para char

[jrjuniore]

Talvez vc não precise transformar podendo executar o copy(var,1,1); 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Florentino - Agrosoft
Enviada em: terça-feira, 5 de julho de 2005 07:55
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Conversao de string para char

Amigos,
Desculpem a pergunta básica, mas procurei na documentação do Delphi e não
encontrei (de repente estava no meu nariz e nao vi!). Como faço para
converter uma variável string (tam=1) em uma variável char ?

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




 






___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
< 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

 

Re: [delphi-br] Contagem

[Info Desenvolvimento]

Emerson, vou explicar o que fiz.

Quero gerar um relatório no Quickreport na seguinte forma
SOBRENOME + ',' + NOME, até aí tudo bem já entendido.
existe duas coisas que não entendi no seu código:
Nome2 := NomeSobrenome := Copy(Nome, 1, 8) + Sobrenome; e
Copy(Nome, 1, 8) porque até a 8ª posição
Para seu exemplo da certo:
Suponhamos que o campo Nome tenha
"Natanael Santos" e o campo sobrenome "Santos".
A quantidade de caracteres em nome é 15 e em sobrenome é 6, então 15 - 6 = 9. 
Dai fica Nome = "Natanael " + "Santos".
Agora com nome com 10 caracteres ficariam os dois ultimos caracteres de fora.

Peço desculpas por encomoda-lo, mas preciso dessa ajuda.
Muito obrigado.

PAULO FERNANDES









- Original Message - 
  From: Emerson Moreno 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 04, 2005 4:55 PM
  Subject: Re: [delphi-br] Contagem


  Sim meu amigo eu sei, veja o exemplo abaixo.


  Var
Nome, Sobrenome, Nome2,  NomeSobrenome : String;
Sobra : Integer;
  Begin 
sobra := 0;
Nome := Trim(EdtNome.text);
Sobrenome := Trim(EdtSobrenome.text);
Sobra := Length(Nome) - Length(Sobrenome);

Nome2 := NomeSobrenome := Copy(Nome, 1, 8) + Sobrenome;
  end;

  Como ficara a rotina acima. Suponhamos que o campo Nome tenha
  "Natanael Santos" e o campo sobrenome "Santos". A quantidade de
  caracteres em nome é 15 e em sobrenome é 6, então 15 - 6 = 9. Dai fica
  Nome = "Natanael " + "Santos".

  Pense direito que da certo. Espero ter ajudado.




  Em 04/07/05, Info Desenvolvimento<[EMAIL PROTECTED]> escreveu:
  > pensei nisso mais vai variar demais usando o copy.
  > NOME tem tamanho 40, só que tem nome que usa 28 posições
  > SOBRENOME Tamanho 15, e sobrenome que usa 12 posições.
  > 
  > São 3 mil registros.
  > 
  > 
  > 
  > 
  > 
  > [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
  > 
  > 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!. 


  -- 
  []'s

  Emerson Moreno
  O grande sábio aprende por ensinar!


  -- 
  < 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

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

<*> 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

 

[delphi-br] Número de registros Delphi 5

[Rodrigo Tognin]

Como faço para atribuir o número de registros de um banco de dados Access a
uma variável no Delphi 5?
Uso ADO para conectar. No Delphi 7 eu uso o seguinte: Num_Registros :=
..RecordCount;
Mas no Delphi 5 não tem o RecordCount... tem algum outro jeito??

Rodrigo Tognin
Estudante e estagiário
Técnico em informática
ESALQ/USP - IPEF



-- 
< 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

 

Re: RES: [delphi-br] Off Gerenciamento deficiente (desabafo)

[Osmar de Souza Júnior]

Só para complementar, gostaria de deixar meu testemunho.
Os usuários do nosso sistema são pessoas de assistência técnica (lojas
de informática).
Esses têm conhecimento, para se quiserem, derrubar qualquer sistema,
por mais bem feito que seja.

Então desde o princípio, já tínhamos isso em mente.
Criamos um sistema de LOG, que se o usuário fizer qualquer gracinha,
como excluir um cadastro de clientes, ou alterar qualquer coisa, vai
ficar registrado no Log. E criamos uma interface bem fácil para o
gerente consultar esse Log. Então o gerente pode ver, a qualquer hora,
se alguém alterou ou apagou qualquer coisa no sistema, ou mesmo se
deixou de fazer.

No resto, o sistema é aberto, sem muitas restrições.
Isso propicia uma mudança de cultura, o sistema não tem muitas travas,
o que simplifica.
E se algum espertinho tentar burlar, vai ficar registrado.

E o mais importante de tudo, criamos uma boa relação com eles.
O que eles solicitam de alterações para melhorar a acessabilidade, nós
fazemos.

Bingo. Satisfação garantida.

[]s.

--- Em delphi-br@yahoogrupos.com.br, Walter Alves Chagas Junior
<[EMAIL PROTECTED]> escreveu
> Metendo o bedelho nesta estoria
> 
> Sistemas são uma arte complicada demais de você lidar. Você faz um
produto
> que não é para você usar e sim para outro usar, e na maioria das
vezes, este
> outro é uma pessoa totalmente leiga no computador e também no assunto.
> 
> Quando o usuário quer derrubar o projeto, ele derruma mesmo! Querer
bater de
> frente com o usuário é bobagem. Você sai perdendo. O que deve ser feito
> então
> 
> O primeiro passo, em um projeto de sistema, é procurar envolver o
usúario no
> processo. Você analista, tem que passar pra ele, que a funcionalidade,
> eficácia e eficiência deste sistema depende muito da participação dele.
> Coloque o usuário como uma peça fundamental no processo pra ver se
ele não
> participa. Lógico que participa. Tanto que nas técnicas de entrevistas,
> estudadas na análise de sistemas, existe o tópico de chão de fábrica
e do
> questionário aplicado ao usuário final. Este geralmente costuma
saber muita
> coisa que o seu cliente não sabe, ou não se lembra porque quem
destrincha o
> processo na empresa, é o funcionario diretamente ligado a ele.
> 
> Outra coisa fundamental é o projeto piloto do sistema. É neste
projeto que
> devem ser ajustados os ultimos detalhes e incluidas as alterações do
> sistema. E é nessa hora que o usuário tem que ter a participação total. 
> 
> Outra coisa: sistemas devem ter interfaces simples, objetivas e
práticas.
> Tudo que o usário precisa, deve estar facilmente ao alcance dele. A
> informação que ele precisa, tem que estar facil de ser rapidamente
> localizada e compilada. Fazer sistemas cheio de penduricálhos, telas que
> chamam outras telas pra chamar outras telas para que se selecione um
dado
> pra chamar outras telas, não leva sistema algum a lugar nenhum.
Olhem aí o
> estudo da interface homem-maquina que sempre martelo nas listas de
> discussão.
>  
> Convencer o usuário é uma questão de jogo de cintura, uma questão de
saber
> expor a ele o que se pretende, e chamá-lo para participar. Se você não
> participar o usuário, desde o começo no projeto, você já começou
mesmo é a
> cavar a primeira pá de terra da cova do seu sistema.
> 
> Na verdade Leandro, isto é uma questão muito mais de cultura do que de
> perniciosidade. Ninguem sabota sistema do nada. Isto é uma falsa
imagem que
> se criou no mundo da TI pra mascarar sistemas ruins, mal feitos e de
péssima
> acessabilidade ao digitador. Uma justificativa que usada por pessoas
que não
> sabem fazer sistemas. Sabem programar mas acham que por que saber e
dominar
> um Delphi da vida, de cabo a rabo, é saber fazer sistema. Mas não é!
O que
> existe é a rejeição áquele produto por ele não ser interativo com as
> necessidades de quem vai operá-lo. 
>  
>  
>  []s
> 
>  Walter Alves Chagas Junior
>  Projeto e desenvolvimento
>  Telemont Engenharia de telecomunicações
>  Belo Horizonte - MG - Brazil 
>  [EMAIL PROTECTED]
>  Fone: (31) 3389-8215 Fax: (31) 3389-8200
>  
> 
> > -Mensagem original-
> > De: Leandro_Yahoo [mailto:[EMAIL PROTECTED]
> > Enviada em: domingo, 3 de julho de 2005 20:37
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: [delphi-br] Off Gerenciamento deficiente (desabafo)
> > 
> > 
> > Olá Desenvolvedores:
> >  
> > Alguém do grupo já viveu situação semelhante?
> >  
> > Vc implanta uma solução em uma empresa.
> > O proprietário é alheio ao manuseio do computador.
> > Os subordinados recebem o treinamento e a incumbência de alimentar o
> > sistema.
> >  
> > Quando o Proprietário solicita uma informação (relatório 
> > disso ou daquilo) o
> > operador por não ter alimentado diz ao proprietário que não 
> > sabe como fazer,
> > não foi treinado para tal. (ou dá qualquer desculpa que recaia sobre o
> > sistema ou treinamento ministrado) 
> >  
> > O proprietário por sua vez, já que não participou do processo. Chama o
> > desenvolvedor e 

RES: [delphi-br] Conversao de string para char

[Walter Alves Chagas Junior]

É o PChar()

 
 
 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia de telecomunicações
 Belo Horizonte - MG - Brazil 
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200
 

> -Mensagem original-
> De: Florentino - Agrosoft [mailto:[EMAIL PROTECTED]
> Enviada em: terça-feira, 5 de julho de 2005 07:55
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Conversao de string para char
> 
> 
> Amigos,
> Desculpem a pergunta básica, mas procurei na documentação do 
> Delphi e não encontrei (de repente estava no meu nariz e nao 
> vi!). Como faço para converter uma variável string (tam=1) em 
> uma variável char ?
> 
> 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
> 
> 
> 
> 
>  
> 
> 


[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

<*> 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

 

[delphi-br] Re: Off Gerenciamento deficiente (desabafo)

[carlos alberto do amaral]

Olá Leandro,

  Como o Walter já comentou, fazer do usuário um "mini-analista-de-
sistemas", isso ajuda e muito, claro, dependendo do seu contrato (se 
o sistema será customizado ou não, para a empresa ), bloquear as 
várias solicitações de alteração, se não fica inviável.

"Ao ministrar um treinamento, fazer quem recebeu por tal
treinamento assinar
um recibo onde teria data, hora de início, hora do fim e
tópicos abordados."  

   Neste caso, crítico, se possível, fazer uma avaliação, tanto do 
treinamento (por parte do usuário) quanto do usuário treinado (por 
parte do treinador, um mini teste com perguntas sobre o sistema)...  

   Treinamento(normalmente, feito com uma base "LIMPA", o que pode 
diferenciar da realidade do usuário), sim importante, mas você faz 
uma coisa chamada "IMPLANTAÇÃO"??, ou seja, acompanhar os usuários, 
nos processos iniciais, para realmente verificar se os erros existem 
(veja bem, existem erros de sistemas e "ERROS DE MÁQUINA", para os 
usuários é tudo ***ERRO DE SISTEMA***) e ensiná-los a utilizar o 
sistema, como muitos dizem: domesticá-los, não gosto deste termo, 
pois existem usuários bem acima da média.

   Manter um histórico rígido, ou seja, qq alteração/exclusão no 
sistema, manter no arquivo de histórico de operações que somente o 
BOSS e você poderá ter acesso... Por acaso, estamos migrando um 
sistema de contas a pagar do Clipper para o Delphi c/ Oracle, no 
Clipper já tínhamos uma série de rotinas que eram gravadas em 
histórico, agora com Oracle, uma das primeiras perguntas dos 
operadores era se iria gravar as operações em histórico, 
simplesmente, falamos que algumas rotinas iriam, sendo que a maioria 
são, ou seja, se houver um "confronto", estamos muito 
bem "documentados" para não levar esporro de chefe alheio ao sistema, 
basta tirar um relatório na frente do "chefe".  Resumindo: procure se 
auto-proteger.


Um abraço,

Carlos 



--- Em delphi-br@yahoogrupos.com.br, "Campus" <[EMAIL PROTECTED]> escreveu
> hehehe, tá certo Walter, é pura verdade.
> 
> Eu tenho clientes que até hoje permanecem em clipper por não 
aceitarem o uso
> do windows, eles não querem nem saber de trocar, acham muito 
complicado,
> janela pra cá, menu pra lá. Não tem conversa.
> 
> Um grande problema eu enfrento quando minha empresa substitui 
outra, nesses
> casos tem sabotagem sim, muitos usuários não querem a troca, porque 
a parte
> deles funciona. Com a troca, muda a filosofia de trabalho, tem 
treinamento,
> aprendizado etc. Disso os usuários não gostam. Sem falar que as 
vezes
> conhecem a pessoa que tinha o sistema anterior.
> 
> Tive um caso de sabotagem de um funcionário, que depois fui 
descobrir, havia
> indicado a empresa que estava com o sistema implantado lá.
> 
> São casos isolados, mas reais, e dizer que falar em sabotagem é
> justificativa para quem não sabe fazer sistemas está longe da 
realidade.
> 
> 
> - Original Message - 
> From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
> To: 
> Sent: Monday, July 04, 2005 6:33 PM
> Subject: RES: [delphi-br] Off Gerenciamento deficiente (desabafo)
> 
> 
> Metendo o bedelho nesta estoria
> 
> Sistemas são uma arte complicada demais de você lidar. Você faz um 
produto
> que não é para você usar e sim para outro usar, e na maioria das 
vezes, este
> outro é uma pessoa totalmente leiga no computador e também no 
assunto.
> 
> Quando o usuário quer derrubar o projeto, ele derruma mesmo! Querer 
bater de
> frente com o usuário é bobagem. Você sai perdendo. O que deve ser 
feito
> então
> 
> O primeiro passo, em um projeto de sistema, é procurar envolver o 
usúario no
> processo. Você analista, tem que passar pra ele, que a 
funcionalidade,
> eficácia e eficiência deste sistema depende muito da participação 
dele.
> Coloque o usuário como uma peça fundamental no processo pra ver se 
ele não
> participa. Lógico que participa. Tanto que nas técnicas de 
entrevistas,
> estudadas na análise de sistemas, existe o tópico de chão de 
fábrica e do
> questionário aplicado ao usuário final. Este geralmente costuma 
saber muita
> coisa que o seu cliente não sabe, ou não se lembra porque quem 
destrincha o
> processo na empresa, é o funcionario diretamente ligado a ele.
> 
> Outra coisa fundamental é o projeto piloto do sistema. É neste 
projeto que
> devem ser ajustados os ultimos detalhes e incluidas as alterações do
> sistema. E é nessa hora que o usuário tem que ter a participação 
total.
> 
> Outra coisa: sistemas devem ter interfaces simples, objetivas e 
práticas.
> Tudo que o usário precisa, deve estar facilmente ao alcance dele. A
> informação que ele precisa, tem que estar facil de ser rapidamente
> localizada e compilada. Fazer sistemas cheio de penduricálhos, 
telas que
> chamam outras telas pra chamar outras telas para que se selecione 
um dado
> pra chamar outras telas, não leva sistema algum a lugar nenhum. 
Olhem aí o
> estudo da interface homem-maquina que sempre martelo nas listas de
> discussão.

Re: [delphi-br] Conversao de string para char

[Valfrid-Ly Silva Couto]

Uma String é um array de char, logo, você pode pegar
cada posição da String (exceto a 0) e utilizar como um
char!!!

--- Florentino - Agrosoft <[EMAIL PROTECTED]>
escreveu:

> Amigos,
> Desculpem a pergunta básica, mas procurei na
> documentação do Delphi e não encontrei (de repente
> estava no meu nariz e nao vi!). Como faço para
> converter uma variável string (tam=1) em uma
> variável char ?
> 
> 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
> 
> 
> 
> http://br.yahoo.com/info/utos.html
> 
>  
> 
> 
> 


Valfrid-Ly Silva Couto
[EMAIL PROTECTED]
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ 15114646





___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/


-- 
< 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

 

Re: [delphi-br] Conversao de string para char

[Campus]

cVariavelTipoChar  := sVariavelTipoString[nPosicao]

onde nPosicao é o caracter desejado.

- Original Message - 
From: "Florentino - Agrosoft" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, July 05, 2005 7:54 AM
Subject: [delphi-br] Conversao de string para char


Amigos,
Desculpem a pergunta básica, mas procurei na documentação do Delphi e não
encontrei (de repente estava no meu nariz e nao vi!). Como faço para
converter uma variável string (tam=1) em uma variável char ?

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]
 
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

 

Re: [delphi-br] Conversao de string para char

[Marcelo Silva]

ShowMessage( PChar(String) );
ShowMessage( PAnsiChar(String) );

Fica a sua escolha




Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]


- Original Message - 
  From: Florentino - Agrosoft 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 05, 2005 7:54 AM
  Subject: [delphi-br] Conversao de string para char


  Amigos,
  Desculpem a pergunta básica, mas procurei na documentação do Delphi e não 
encontrei (de repente estava no meu nariz e nao vi!). Como faço para converter 
uma variável string (tam=1) em uma variável char ?

  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

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!. 


  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.8.7/34 - Release Date: 29/06/2005


[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

<*> 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

 

[delphi-br] Conversao de string para char

[Florentino - Agrosoft]

Amigos,
Desculpem a pergunta básica, mas procurei na documentação do Delphi e não 
encontrei (de repente estava no meu nariz e nao vi!). Como faço para converter 
uma variável string (tam=1) em uma variável char ?

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

<*> 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

 

[delphi-br] Re: Lendo arquivo que está em uso.

[cintinha1234]

É exatamente isso que quero fazer. Abrir um arquivo considerando que 
ele pode estar sendo compartilhado, porém não sei como fazer isto.

Em relação aos valores do FileMode, pelo help (delhpi 4), os únicos 
valores recebidos são:
0   Read only
1   Write only
2   Read/Write

 
Alguma idéia ???



--- Em delphi-br@yahoogrupos.com.br, "Rubem Nascimento da Rocha" 
<[EMAIL PROTECTED]> escreveu
> Se vc quer abrir um arquivo sem considerar que ele possa estar 
sendo 
> utilizado (Exemplo: sendo compartilhado por outra aplicação), vai 
sempre 
> acontecer esse erro!
> 
> Sugiro que use também o valor $ ou $0040. Consulte o help do 
Delphi 
> sobre as constantes que podem ser utilizados nessa variável global 
FileMode. 
> É aí que pode estar a chave para resolver esse problema!
> 
> []s
> 
> >From: "cintinha1234" <[EMAIL PROTECTED]>
> >Reply-To: delphi-br@yahoogrupos.com.br
> >To: delphi-br@yahoogrupos.com.br
> >Subject: [delphi-br] Lendo arquivo que está em uso.
> >Date: Mon, 04 Jul 2005 20:38:58 -
> >
> >Pessoal,
> >
> >estou tentando ler um arquivo que está em uso e o sistema retorna a
> >mensagem I/O error 32 (violação de compartilhamento).
> >
> >estou usando Reset(F) para abrir o arquivo e FileMode = 0.
> >
> >Alguém sabe como posso resolver este problema ? Ou não é possível
> >fazer esta leitura ?
> >
> >
> 
> _
> MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br




-- 
< 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

 

RES: [delphi-br] Firebird ou MySQL???

[Eduardo]

O MySQL funciona assim:
 
Se vc é comercial ele tb é.
 
Por tanto se vc vai comercializar o seu software utilize o FireBird para
diminuir os custo. Mas se vc quiser um melhor desenpenho sem usar
procedores e funções use o MySQL.
 
Eduardo

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Cristiano Oliveira
Enviada em: segunda-feira, 4 de julho de 2005 18:18
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Firebird ou MySQL???


Olá pessoal,

Irei mudar a base de dados (Paradox) do meu sistema de automação 
comercial e gostaria da opinião de vcs.
Devo optar por Firebird ou MySQL???
Obs.: O sistema é para eu comercializar.
Desde já, obrigado.

[]s.
Cristiano Oliveira.




-- 
< 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 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

<*> 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

 

Re: [delphi-br] Porta serial

[Ulisses]

Bom dia!

Baixa aqui.
http://www.bematech.com.br/suporte/downloads/fisc_win/emulfith.zip

Boa sorte.

Ulisses


- Original Message -
From: "Fernanda Forbici" <[EMAIL PROTECTED]>
To: 
Sent: Monday, July 04, 2005 4:24 PM
Subject: Re: [delphi-br] Porta serial


> O que é esse emulador, e onde tem p/ baixar??
>
> Fernanda Forbici
>
> - Original Message -
> From: "tiago_econtabil" <[EMAIL PROTECTED]>
> To: 
> Sent: Monday, July 04, 2005 3:28 PM
> Subject: [delphi-br] Porta serial
>
>
> Pessoal, preciso fazer a comunicação com o emulador da Bematech para
> implementar as rotinas de emissão de cupom fiscal, mas como programo
> em notebook e o mesmo não possui porta serial, gostaria de saber dos
> colegas se existe um emulador de serial e onde posso encontrá-lo.
>
>
> Agradeço desde já
>
> Tiago
>
>
>
>
> --
> < 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
>
>
>
>
>
>
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.323 / Virus Database: 267.8.8/37 - Release Date: 01/07/05
>
>
>
>
> --
> No virus found in this outgoing message.
> Checked by AVG Anti-Virus.
> Version: 7.0.323 / Virus Database: 267.8.8/37 - Release Date: 01/07/05
>
>
>
>
>
> --
> < 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

 

Re: [delphi-br] Off Gerenciamento deficiente (desabafo)

[Campus]

hehehe, tá certo Walter, é pura verdade.

Eu tenho clientes que até hoje permanecem em clipper por não aceitarem o uso
do windows, eles não querem nem saber de trocar, acham muito complicado,
janela pra cá, menu pra lá. Não tem conversa.

Um grande problema eu enfrento quando minha empresa substitui outra, nesses
casos tem sabotagem sim, muitos usuários não querem a troca, porque a parte
deles funciona. Com a troca, muda a filosofia de trabalho, tem treinamento,
aprendizado etc. Disso os usuários não gostam. Sem falar que as vezes
conhecem a pessoa que tinha o sistema anterior.

Tive um caso de sabotagem de um funcionário, que depois fui descobrir, havia
indicado a empresa que estava com o sistema implantado lá.

São casos isolados, mas reais, e dizer que falar em sabotagem é
justificativa para quem não sabe fazer sistemas está longe da realidade.


- Original Message - 
From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
To: 
Sent: Monday, July 04, 2005 6:33 PM
Subject: RES: [delphi-br] Off Gerenciamento deficiente (desabafo)


Metendo o bedelho nesta estoria

Sistemas são uma arte complicada demais de você lidar. Você faz um produto
que não é para você usar e sim para outro usar, e na maioria das vezes, este
outro é uma pessoa totalmente leiga no computador e também no assunto.

Quando o usuário quer derrubar o projeto, ele derruma mesmo! Querer bater de
frente com o usuário é bobagem. Você sai perdendo. O que deve ser feito
então

O primeiro passo, em um projeto de sistema, é procurar envolver o usúario no
processo. Você analista, tem que passar pra ele, que a funcionalidade,
eficácia e eficiência deste sistema depende muito da participação dele.
Coloque o usuário como uma peça fundamental no processo pra ver se ele não
participa. Lógico que participa. Tanto que nas técnicas de entrevistas,
estudadas na análise de sistemas, existe o tópico de chão de fábrica e do
questionário aplicado ao usuário final. Este geralmente costuma saber muita
coisa que o seu cliente não sabe, ou não se lembra porque quem destrincha o
processo na empresa, é o funcionario diretamente ligado a ele.

Outra coisa fundamental é o projeto piloto do sistema. É neste projeto que
devem ser ajustados os ultimos detalhes e incluidas as alterações do
sistema. E é nessa hora que o usuário tem que ter a participação total.

Outra coisa: sistemas devem ter interfaces simples, objetivas e práticas.
Tudo que o usário precisa, deve estar facilmente ao alcance dele. A
informação que ele precisa, tem que estar facil de ser rapidamente
localizada e compilada. Fazer sistemas cheio de penduricálhos, telas que
chamam outras telas pra chamar outras telas para que se selecione um dado
pra chamar outras telas, não leva sistema algum a lugar nenhum. Olhem aí o
estudo da interface homem-maquina que sempre martelo nas listas de
discussão.

Convencer o usuário é uma questão de jogo de cintura, uma questão de saber
expor a ele o que se pretende, e chamá-lo para participar. Se você não
participar o usuário, desde o começo no projeto, você já começou mesmo é a
cavar a primeira pá de terra da cova do seu sistema.

Na verdade Leandro, isto é uma questão muito mais de cultura do que de
perniciosidade. Ninguem sabota sistema do nada. Isto é uma falsa imagem que
se criou no mundo da TI pra mascarar sistemas ruins, mal feitos e de péssima
acessabilidade ao digitador. Uma justificativa que usada por pessoas que não
sabem fazer sistemas. Sabem programar mas acham que por que saber e dominar
um Delphi da vida, de cabo a rabo, é saber fazer sistema. Mas não é! O que
existe é a rejeição áquele produto por ele não ser interativo com as
necessidades de quem vai operá-lo.


 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia de telecomunicações
 Belo Horizonte - MG - Brazil
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200


> -Mensagem original-
> De: Leandro_Yahoo [mailto:[EMAIL PROTECTED]
> Enviada em: domingo, 3 de julho de 2005 20:37
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Off Gerenciamento deficiente (desabafo)
>
>
> Olá Desenvolvedores:
>
> Alguém do grupo já viveu situação semelhante?
>
> Vc implanta uma solução em uma empresa.
> O proprietário é alheio ao manuseio do computador.
> Os subordinados recebem o treinamento e a incumbência de alimentar o
> sistema.
>
> Quando o Proprietário solicita uma informação (relatório
> disso ou daquilo) o
> operador por não ter alimentado diz ao proprietário que não
> sabe como fazer,
> não foi treinado para tal. (ou dá qualquer desculpa que recaia sobre o
> sistema ou treinamento ministrado)
>
> O proprietário por sua vez, já que não participou do processo. Chama o
> desenvolvedor e solta os cachorros...
>
> Qual seria a forma ideal?
>
> Ao ministrar um treinamento, fazer quem recebeu por tal
> treinamento assinar
> um recibo onde teria data, hora de início, hora do fim e
> tópicos abordados.
>
> E quando a questão passada pelo operador é de