Fórum Formatação de strings e float #229729
04/05/2004
0
Olha ai, naum sei como formata um float, queria saber como faço para ele paresentar só 3 números depois da virgula.. alguém pode me ajudar nisso?
E outra, tenho uma string, só qeu tenho dois números nela, separados por um espaço e por um traço e mais um espaço. Eu queria pegar esses números antes e depois do traço, jogando cada uma numa variável para posteriormente eu trabalhar com ela, alguém sabe como faço isso???
Obrigado pela atenção
Salvati
Curtir tópico
+ 0Posts
04/05/2004
Eniorm
funciona assim, no seu caso:
s := FormatFloat(´#0.000´,varFloat);
onde varFloat é uma variável com o valor.
Para saber mais veja a ajuda do delphi sobre essa
função; :wink:
Gostei + 0
04/05/2004
Lucas Silva
varivalString := FormatFloat(´0.00´, variavelFloat)
// coloque um edit e um botão em seu form.
procedure TForm1.Button1Click(Sender: TObject);
var posicao: integer;
texto: String;
begin
texto := edit1.text;
posicao := pos(´-´,Edit1.Text);
Delete(texto,posicao,length(texto));
Edit1.Text := texto;
end;Gostei + 0
04/05/2004
Marco Salles
procedure TForm1.Button1Click(Sender: TObject);
var
numero1,numero2:real;
i:Integer;
begin
i:=1;
while i<= length(Edit1.text) do
begin
if edit1.text[i]=´ ´ then
break;
i:=i+1;
end;
numero1:=StrtoFloat(Copy(Edit1.text,1,i-1));
ShowMessage(FormatFloat(´.000´,numero1));
numero2:=StrToFloat(Copy(Edit1.text,i+3,Length(edit1.text)));
ShowMessage(FormatFloat(´.000´,numero2));
end;[b:55b558c7c2]P:S[/b:55b558c7c2]
Isto so vai funcionar se a formatação da sua String for sempre a mesma , isto é : [b:55b558c7c2]Espaço Seguido de dois caracteres Quaisquer[/b:55b558c7c2]....
Gostei + 0
04/05/2004
Salvati
Me ajudram muito...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)