Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi String mit Prozent-Wert in einen Float-Wert umrechnen (https://www.delphipraxis.net/36934-string-mit-prozent-wert-einen-float-wert-umrechnen.html)

stoermi 28. Dez 2004 12:54


String mit Prozent-Wert in einen Float-Wert umrechnen
 
Hallo!

Ich habe einen String, welcher einen Prozent-Wert ('25 %') enthält.
Gib es eine Methode, die mir diesen Wert als Real oder Single (0.25) zurückgibt?

Das Ganze ist immer ein Item einer ComboBox.
Muss ich mit dann den Index merken, und dem entsprechend einen Wert dem Real zuweisen.
Oder ist es einfacher, den String umzurechnen, wenn das überhaupt geht???

Tschau!

Dax 28. Dez 2004 12:58

Re: String mit Prozent-Wert in einen Float-Wert umrechnen
 
Das sollte ganz einfach gehen: Du nimmst dir deinen String, entfernst das Prozent-Zeichen, rechnest das ganze mit StrToFloat um und teilst durch 100 ;-)

Delphi-Quellcode:
var
  s: string;
  e: Extended;
begin
  Delete(s, Length(s), 1); //Prozentzeichen entfernen
  s := StringReplace(s, ' ', '', [rfReplaceAll]); // Evt. Leerzeichen entfernen
  e := StrToFloat(s) / 100;
  // Jetzt noch in die ComboBox einfügen
  ComboBox1.Items.Add(FloatToStr(e));
end;

Steve 28. Dez 2004 12:59

Re: String mit Prozent-Wert in einen Float-Wert umrechnen
 
Zitat:

Zitat von stoermi
Ich habe einen String, welcher einen Prozent-Wert ('25 %') enthält.
Gib es eine Methode, die mir diesen Wert als Real oder Single (0.25) zurückgibt?

Hi,

Erstmal das %-Zeichen weg ([oh]StringReplace, Pos, Delete[/oh]), dann Delphi-Referenz durchsuchenStrToInt oder Delphi-Referenz durchsuchenStrToFloat und abschließend noch durch 100 teilen. Fertig. :zwinker:

Gruß
Stephan :dance:

edit: Zu Langsam

stoermi 28. Dez 2004 13:01

Re: String mit Prozent-Wert in einen Float-Wert umrechnen
 
Danke!!!


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:49 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz