Campo..no lugar errado..!!!

03/02/2003

2

Pessoal,
Como vão..?

Bem to com o seguinte probleminha, to gerando um arquivo txt
e o campo ´data de nascimento´ fica colado ao campo ´nome´,
como faço para ele ir mais para frente.?

[],s

junior


Junior#

Junior#

Responder

Posts

03/02/2003

Anonymous

Seria esta a resposta ?

Nome + ´ ´ + Data

ou seja;

Nome + espaço + FomatDateTime(´dd/mm/yyyy´,date)


Responder

03/02/2003

Anonymous

Cara mnuito obrigado pela resposta
mas supondo que exitamm nomes maiore e nomes menore como colocar a data de nascimento em uma coluna fica por exemplo...tipo da coluna 1 a 50 e o nome e da 51 a 60 é a data de nascimento


Responder

03/02/2003

Junior#

segue funções
******
function ColocaCaracter(Caracter: Char; Texto: string; Tamanho: Integer; Final: Boolean): string;
var
S, Temp: string;
Posicoes, Delta, I: Integer;
Tam, Dif, Inicio: Integer;
begin
if (Caracter <> ´ ´) then
Texto := StringReplace(Texto, ´ ´, ´´, [rfReplaceAll])
else begin
while Pos(´ ´, Texto) > 0 do
Texto := StringReplace(Texto, ´ ´, ´ ´, [rfReplaceAll])
end;

Posicoes := Length(Texto);
Delta := (Tamanho - Posicoes);
Temp := Texto;
Tam := Length(Texto);
Dif := Tam - Tamanho;

if Tam < Tamanho then begin
I := 0;
while (i < Delta) do begin
S := (S + Caracter);
Inc(I);
end;

if (Delta > 0) then begin
if Final then
Result := (Texto + S)
else
Result := (S + Texto);
end
else begin
Result := Texto;
end;
end
else begin
Inicio := Tamanho + 1;
Delete(Temp, Inicio, Dif);
Result := Temp;
end;
end;

procedure minhafunção;
begin
nome := colocacaracter(´ ´, nome, 50, True);
linha_gravada := nome + fone
end;
*****

feito


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar