Schleife für StringReplace

[Stevens]

Hallo Leute


Schreibe gerade ein Programm mit dem Ich Messwerte auslese.
Den Messbereich stellt das Messgerät automtatisch im Bereich von E+06 bis E-09 ein.
Die Werte werden im Format z.B. 1,200 E-06 ausgegeben.
Dazu möchte Ich die Exponenten- Werte durch die Bezeichnung z.B. µ ersetzen.

Mein Quellcode für einen Exp.- Faktor sieht jetzt so aus:

Delphi-Quellcode:

Panel1.Caption := (StringReplace(Panel1.Caption,'E-06',Chr(181),[rfreplaceall]));

Soweit, so gut nur.....
Wie muss Ich jetzt eine Schleife oder Abfrage realisieren, damit alle Faktoren von
E+06 bis E-09 durchlaufen werden. :gruebel:

Hab keine Idee!

[himitsu]

Erstens, da war ein Komma zu viel ;)

Delphi-Quellcode:

S := Panel1.Caption;
S := StringReplace('E-06', Chr(181), [rfreplaceall]);
S := StringReplace('E-03', Chr(...), [rfreplaceall]);
...
S := StringReplace('E+09', 'M', [rfreplaceall]);
Panel1.Caption := S;

Delphi-Quellcode:

Const TheChar: Array[-2..3] of Char = ('µ', ..., 'M');

S := Panel1.Caption;
For i := -2{*3=-6} to 3{*3=+9} do
S := StringReplace('E' + Format([i*3] ...), TheChar(i), [rfreplaceall]);
Panel1.Caption := S;

Für FORMAT hab ich gerade keine Definition ... schau mal in die OH und stell ein Muster zusammen, was ein Vorzeichen voranstellt und danach die Zahl zweistellig mit führrender Null.

Delphi-Quellcode:

Const TheSign: Array[Boolean] of Char = ('+', '-');
  TheChar: Array[-2..3] of Char = ('µ', ..., 'M');

S := Panel1.Caption;
For i := -2{*3=-6} to 3{*3=+9} do
  S := StringReplace('E' + TheSign[i < 0] + IntToStr(Abs(i * 3) div 10) + IntToStr(Abs(i * 3) mod 10), TheChar(i), [rfreplaceall]);
Panel1.Caption := S;

solange du zwischen -10 und 10 bleibst, kannst du IntToStr(Abs(i * 3) div 10) durch '0' ersetzen, da es dann ja eh immer 0 sein wird.

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Stevens.

Hier noch eine kleine Funktion, welche die technische Notation im Bereich E-9 bis E6 von Exponentialschreibweise auf Symbolschreibweise umstellt. Ohne Prüfcode - nur zur Verdeutlichung der Vorgehensweise:

Delphi-Quellcode:

function EngUnit(s: String): String;
const
  S_UNITS = 'nµm kM';
var
  i, exp: Integer;
begin
  i := Pos('E', s);
  exp := StrToInt(Copy(s, Succ(i), 3)) div 3 + 4;
  Result := Trim(Copy(s, 1, Pred(i)) + S_UNITS[exp]);
end;

Freundliche Grüße vom marabu

[Stevens]

Danke, hat super geklappt!
:coder2:

[Stevens]

Fortsetzung folgt :roteyes:



Die Expotential- in Symbolschreibweise hat ja super geklappt.
Nun bin Ich an meinem Projekt auf ein anderes Hindernis gestossen

Die Messwerte die Ich auslese zeigt mir das Programm korrekt an, nur.....
Diese Werte muss Ich mit einem frei einstellbaren Faktor multiplizieren( z.B. 0,4)
D.h. bei einem Wert von 1,2 mF * 0,4 erscheint das Ergebnis von 0,48 mF, was ja stimmt und funktioniert aber nicht gerade schön ist.
Die Ergebnisse sollten bei einem 0,xx- Wert in dem nächst niedrigeren Exponenten angezeigt werden, was in diesem Beispiel 480 µF währen.

:wall:

Wäre gut wenn einer mir weiter helfen kann, sonst werde noch Ich verrückt!!
:freak:

[Klaus01]

Kannst Du nicht den Ganzzahlanteil des Ergebnisses mit int
abfragen, ist int < 0 dann mußt Du den Exponenten prüfen und den
nächst niedrigeren nehmen ist int > 1000 dann solltest Du den nächst
höheren Exponenten wählen.

Grüße
Klaus

[mbamler]

Zitat:

Zitat von Stevens

Fortsetzung folgt :roteyes:



Die Expotential- in Symbolschreibweise hat ja super geklappt.
Nun bin Ich an meinem Projekt auf ein anderes Hindernis gestossen

Die Messwerte die Ich auslese zeigt mir das Programm korrekt an, nur.....
Diese Werte muss Ich mit einem frei einstellbaren Faktor multiplizieren( z.B. 0,4)
D.h. bei einem Wert von 1,2 mF * 0,4 erscheint das Ergebnis von 0,48 mF, was ja stimmt und funktioniert aber nicht gerade schön ist.
Die Ergebnisse sollten bei einem 0,xx- Wert in dem nächst niedrigeren Exponenten angezeigt werden, was in diesem Beispiel 480 µF währen.

:wall:

Wäre gut wenn einer mir weiter helfen kann, sonst werde noch Ich verrückt!!
:freak:

Na na - immer geschmeidig beleiben ;)
Die Lösung kann ich dir nicht präsentieren aber ....

ich würde den Log zur Basis 10 auf den Ergebniswert berechnen (z.B. Log10 von 0,48 = -0.3188)
So lange das Ergenis der Operation kleiner 0 ist
würde ich "deinen" Wert mit 1000 multiplizieren - gleichzeitig die Einheit von m auf y wechseln
(Bei anderen Einheitenwechsel entsprechend - du brauchst also eine Liste von Einheiten, die du bei jeder Multiplikation durchgehst)

anderes Beispiel Entfernungen (hier bei Multiplikation mit 10)

480 mm log10 = 2,6 ist größer 0 - also durch 10 TEILEN und Einheit eine 10er Protenz niedriger (vom mm auf cm)
48 cm log10 = 1,6 ist größer 0 - also durch 10 TEILEN und .... (von cm auf dm)
4,8 dm log10 = 0,68 ... (von dm auf m)
0,48 m
...usw...

hoffe ich habe dich auf eine Idee gebracht

Gruß
Matthias

[marabu]

Eine kleine Code-Spende:

Delphi-Quellcode:

const
  S_UNITS = 'pnµm kMGT';

function FloatToSym(value: Extended): String;
var
  i, sign: Integer;
  log: Extended;
begin
  log := Ln(value) / Ln(10);
  sign := 1 - Ord(log < 0) shl 1;
  i := 0;
  while (log < 0) or not (log < 3) do
  begin
    Inc(i, sign);
    log := log - sign * 3;
  end;
  value := Exp(log * Ln(10));
  Result := Format('%g%s', [value, S_UNITS[i + Pos(' ', S_UNITS)]]);
end;

function SymToFloat(s: String): Extended;
var
  i, index: Integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
    if not TryStrToFloat(Copy(s, 1, i), Result) then
    begin
      index := Pos(s[i], S_UNITS);
      if index > 0 then
      begin
        Result := Exp(ln(Result) + (index - Pos(' ', S_UNITS)) * 3 * Ln(10));
        Exit;
      end;
    end;
end;

Grüße vom marabu

[Stevens]

1000 Dank. Ist echt Top! :hello:

Werde es am Freitag sofort einbauen.
Jetzt läuft wahrscheinlich ein potentieller Verrückter weniger rum.
Sind eh schon genug da! :mrgreen:

[stoxx]

Hi !
ähm, die Funktion ist ja Wahnsinn .. warum macht ihr die Sache so kompliziert ?
Jede Einheit stellt doch nur einen simplen Faktor für den eigentlichen Wert dar.
Lösung also:
Der Wert wird einfach solange in einer Schleife in die neue Einheit umgerechnet bis eine Zahl größer 1 rauskommt.
Wahnsin was ihr da macht *Kopfschüttel* .. die Funktion FloatToSym ist ja echt ein Hammer !
Man braucht doch für umrechnungen keinen Logarithmus ...

[stoxx]

da die Abbruchbedingung der Funktion falsch ist, wenn sich in keine kleinere Einheit mehr umrechnen lässt, hier eine korrekte Version:

Delphi-Quellcode:

function xFloatToSym(Value : Extended) : String;
const
  S_UNITS = 'afpnµm kMGTP';

var Wert: Extended;
    Einheit : Integer;
begin
wert := Value;
Einheit := 7;
while ( wert < 1 ) and (Einheit > 1) do begin
  Wert := Wert * 1000;
  dec(Einheit);
end;

while (Wert >= 1000) and (Einheit < 12) do begin
  Wert := Wert / 1000;
  inc(Einheit)
end;
Result := Format('%g%s', [Wert, S_Units[Einheit]]);

end; // xFloatToSym

Delphi-Quellcode:

st := FloatToSym(0.00000000000002);
Showmessage(st);

st := xFloatToSym(0.00000000000002);
Showmessage(st);


st := FloatToSym(1000000000000000000);
Showmessage(st);

st := xFloatToSym(1000000000000000000);
Showmessage(st);

st := FloatToSym(0.00000000000000000001);
Showmessage(st);

st := xFloatToSym(0.00000000000000000001);
Showmessage(st);

[Stevens]

Hallo Leute

Häng an meinem Messprogramm fest.
Speichere meine Messwerte in einem StringGrid
Diese werden dort mit einem Zahlen- Wert und dem zugehörigen Faktor gespeichert. z.B. 390 µ oder 900n

Jetzt will Ich diese Werte in einem Chart anzeigen lassen, was auch ohne µ oder n funktioniert. Ist klar das Delphi mir jetzt aber sagt 390 µ ist kein gültiger Gleitkommawert.

Habs jetzt so versucht:

Delphi-Quellcode:

for i := (StringGrid1.Rowcount-z) to StringGrid1.Rowcount-1 do begin 
while Pos('µ', i) > 0 do 
    Delete(i,Pos('µ', i),1); 
Series1.Addxy(........) 
... 
... 
end;

Funktioniert, nicht! Fehlermeldung: Inkompatible Typen
Hab die Frage schon in einem anderen Forum gestellt.
Liegt an dem i in der pos(). Ist der Schleifenzähler.Nur was muss da rein?
StringGrid.cells[2,i] ?
Da wird mir angezeigt, dass Konstantenobjekt kann nicht als var- Parameter übergeben werden.
Vielleicht kann man mir hier helfen. In anderen Foren kriegt man nur dumme Sprüche und keine Tipps!



Was ist mein Fehler??

[Klaus01]

Angenommen Deine Werte stehen in der ersten Spalte Deines StringGrids

Dann sollte das alles ungefähr so aussehen.

Delphi-Quellcode:

for row := (StringGrid1.Rowcount-z) to StringGrid1.Rowcount-1 do 
begin 
  s:=StringGrid1.cells[row,0];

  for j:=1 to length(Stringgrid1.cells[row,0]) do
    begin
      if s[j] = 'µ' then
        s[j] := ' ';
    end;
  StringGrid1.cells[row,0]:=s;
end;

Dein Code:

Delphi-Quellcode:

for i := (StringGrid1.Rowcount-z) to StringGrid1.Rowcount-1 do // i ist eine Zählvariable (Typ: integer oder byte)
begin 
  while Pos('µ', i) > 0 do   // i ist nicht der String in dem Du µ suchst, mal in der OH pos anschauen
    Delete(i,Pos('µ', i),1); // i ist nicht der String aus dem Du | rauslöschen willst, mal in der OH delete anschauen
  Series1.Addxy(........) 
... 
... 
end;

Grüße
Klaus

[Jasocul]

Zitat:

Zitat von Stevens

Funktioniert, nicht! Fehlermeldung: Inkompatible Typen
Hab die Frage schon in einem anderen Forum gestellt.
Liegt an dem i in der pos(). Ist der Schleifenzähler.Nur was muss da rein?
StringGrid.cells[2,i] ?
Da wird mir angezeigt, dass Konstantenobjekt kann nicht als var- Parameter übergeben werden.
Vielleicht kann man mir hier helfen. In anderen Foren kriegt man nur dumme Sprüche und keine Tipps!

Sorry, aber findest du es nicht ein bisschen dreist, sowas zu behaupten und gleichzeitig die Hinweise, die du bekommen hast hier mit aufzunehmen?
Dass es an dem "i" in Pos liegt, wurde dir nämlich erklärt. (Fett hervorgehoben)

[Stevens]

Geschafft! :bounce1:
Danke für die Hilfe, insbesonderem Klaus01.
Das war der richtige Ansatz, bzw. fast die Lösung!

Hier mal der nun funktionierende Quellcode

Delphi-Quellcode:

else
          for i:=(Form1.StringGrid1.Rowcount-z) to (Form1.StringGrid1.Rowcount-1) do begin
          begin
          s:=Form1.StringGrid1.cells[2,i];

           for j:=1 to length(Form1.Stringgrid1.cells[2,i]) do
           begin
           if s[j] = 'µ' then
           s[j] := ' ';
           end;
           Form1.StringGrid1.cells[2,i]:=s;
           series1.addxy(i,Strtofloat(s),Form1.StringGrid1.cells[1,i]);

:coder2: