Campo..no lugar errado..!!!
03/02/2003
0
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#
Posts
03/02/2003
Anonymous
Nome + ´ ´ + Data
ou seja;
Nome + espaço + FomatDateTime(´dd/mm/yyyy´,date)
03/02/2003
Junior#
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
03/02/2003
Navoid
******
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
Clique aqui para fazer login e interagir na Comunidade :)