Fromatfloat Com Strings

[rodrigo biagioli]

é o seguinte:: quando temos um codigo em numero e queremos que o mesmo tenha sempre 5 digitos podemos fazer da seguinte forma:

formatfloat('00000',codigo);

bom, não sei se existe um jeito melhor mas sempre faço assim.

o problema é que preciso fazer algo parecido só que num codigo que contem LETRAS.

consegui fazendu um for que concatenado '0' nele ateh preencher todos os 5 digitos,

mas me achei um ignorante ao apelar para tal codigo grotesco;

alguém pode me dizer se tem um jeito ou só na base da "programação orientada a gambiarras"?

ah!!!!!!!!!!!!!

e foi mal pelo "FROMATFLOAT" do titulo

[DELPHI-Man32]

kro amigo!

formatfloat('00000',codigo); 

para esse questão, você pode usar a propriedade: DisplayFormat, assim você enxuga seu código, com certeza terá algumas linhas a menos de preocupação. Basta colocar a quantidade de dígitos e o Delphi faz o resto. Pelo menos uso assim nos campos "id" das minhas tabelas. Logo, o código 1 será mostrado assim: 00001.

para a 2ª, crei que só criando uma função, que para ser sincero, nem sei por onde começar!

[Kikonanet]

Olá Rodrigo,

Use a função Concat para concatenar os 0 em seu código.

Exemplo:

var S: string;
begin
    S := Concat('ABC', 'DEF');
end;

abs.

Kiko

[rodrigo biagioli]

ateh daria certo isso ai.

mas meu problema é que nem sempre sei a qtde de zeros que quero colocar.

entende?

pode ser que uma hora digite apenas 2 digitos e precise completar com 3, outra hora pode ser que tenha digitado 4 e falte apenas um para completar.

obs: essa função concat faz a mesma coisa que isso

s := 'ABC'+'DEF';

?

[Kikonanet]

Olá Rodrigo,

você pode fazer uma function para isso... Qual é o tamanho total da string?

max - tamanho total que a string deve ser...Ex: 0000AB

Acho que o exemplo pode te ajudar...

function concatenar(s: string; max: integer);

var max, tam: integer;
     

begin

tam:= length(s);

while tam < max do
begin
 s:= concat("0",s); 
 tam:= tam + 1;
end;
concatenar:= s;

end;

Cara faz tempo que eu não mexo no Delphi... Não me lembro se o return da função é assim mesmo que faz (quem puder me relembrar eu agradeço...rs...rs...).

abs.

Kiko

[rodrigo biagioli]

é assim mesmo o return (função := valor)

eu tava fazendo mais ou menos igual á sua funcao mas to uzandu um for

qtd_zeros := max - length(s);

for i := 1 to qtd_zeros do

s := '0'+s;

mas achei que tivesse alguma outra função pois achei mta ganbiarra esse código;

mas beleza vlw kiko!!!!

é assim mesmo o return (função := valor)

eu tava fazendo mais ou menos igual á sua funcao mas to uzandu um for

qtd_zeros := max - length(s);

for i := 1 to qtd_zeros do

s := '0'+s;

mas achei que tivesse alguma outra função pois achei mta ganbiarra esse código;

mas beleza vlw kiko!!!!

[Kikonanet]

mas achei que tivesse alguma outra função pois achei mta ganbiarra esse código

Não acho que seja gambiarra... Eu tmb não lembro se no Delphi tem uma função dessa... O código que você fez não é nenhum absurdo...

abs. e t+

Kiko

[Churc]

opa

na minha opinião esse código está perfeito...

gambiarra não é, que as funções que você usa do

Delphi fazem essas coisas é que você está acostumado

a utilizar funções pré-prontas de units como SysUtils,

DateUtils, StrUtils mas nada mais nada menos elas fazem

a mesma coisa só que de maneiras diferentes, e as vezes

até pior ahuauh já vi várias coisas que podiam ser otimizadas...

eu já tive esse negócio, de querer fazer tudo profissionalmente,

cada função, cada linha achando que o que eu montava era

gambiarra... no fim você acaba perdendo produtividade e aumentado

o tempo para entrega do programa... resumindo, só se fo** ehehe

abraço

[rodrigo biagioli]

vlw mesmo heim pessoal!!!

realmente tava perdendo um tempo desnecessario com isso.

vlw...