Meu amigo na hora da leitura crie uma funcao q teste todos inicio
de arquivo...
se for zero na hora da imporçao atribua zero antes de gravar o nome...
nini = numero inicio
"
if nini = 0 then
begin
nini:= '0'+nini
end
else
proximo
"
Att.
Adilson /(44)99265497
-
e se adapta até aos recursos
visuais do XP e do Vista.
Abs
BL
From: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] On
Behalf Of adilson martins
Sent: quinta-feira, 26 de junho de 2008 16:41
To: [EMAIL PROTECTED] os.com.br
Subject: [delphi-br] Menu xp no delphi
Boa
Boa tarde,
aguem do grupo tem agum exemplo com fonte q possa me ajudar a montar um menu
com a kra do XP,
sou novo na area de programacao e nao consigo fazer um menu...filé
será q alguem pode me ajudar...
meu e-mail é:
[EMAIL PROTECTED]
fico agradecido se alguem puder me ajudar.
t+
Att.
Adils
esqueci da tela de importacao bem simplezinha
srsrsr
Att.
Adilson
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Eu fiz... para banco de dados ACESS
olha minha rotina ai e em anexo segue a tela de importação
procedure ImportaCliente;
var
Data: TDateTime;
begin
lblMensagem.Caption := 'Importando dados para a tabela de CLIENTES...';
Application.ProcessMessages;
ReadLn(Arquivo, Linha);
Repeat
// Se
Filippe Maymone,
1º vc tem saber qual a modelagem do arquivo q esta inportando;
2º faça um lopping assim:
//** usado para importação no banco em acess blz
while not Ado.Eof do
begin
//tratamento para a tabela (CIDADE)
qry.Close;
//fecho a query para inserção
qr
6 matches
Mail list logo