Hallo!

ich hab einen String, der aus einer Ziffer und aus mehreren Buchstaben besteht.
Zum Beipiel: 'Masse = 7 kg'
Die Buchstaben im String ändern sich nie, lediglich die Ziffer ist unterschiedlich.
Wie kann ich prüfen, ob die Buchstaben wirklich 'Masse = # kg' sind und wie kann ich die enthaltene Ziffer in einen integer konvertieren.
Es wäre eine Möglichkeit den Sting in mehrere Teile zu zerlegen und einzeln zu prüfen bzw zu konvertieren, aber gibt's da nicht eine elegantere Lösung?

Gruß,
Borti

Helfen können dir z.B. POS, PosEx, TryStrToInt(), copy, ...

Das würde alles auch wieder auf ein zerlegen des Strings rauslaufen aber ich denk da an folgendes:

man kann ja einen integer mit Hilfe einer maske in einen String konvertieren
formatfloat('####0.000',45.8) geht das nicht auch rückwärts, dass man über eine Maske sagt, wo sich die Buchstaben und wo die Ziffern verbergen?

Zerlegen hiermit:

zusammenfalten · markieren

Delphi-Quellcode:

function TForm1.GetToken(aString, SepChar: string; TokenNum: Byte): string;
var
  Token: string;
  StrLen: Byte;
  Num: Byte;
  EndofToken: Byte;
begin
  StrLen := Length(aString);
  Num := 1;
  EndofToken := StrLen;
  while ((Num <= TokenNum) and (EndofToken <> 0)) do
  begin
    EndofToken := Pos(SepChar, aString);
    if EndofToken <> 0 then
    begin
      Token := Copy(aString, 1, EndofToken - 1);
      Delete(aString, 1, EndofToken);
      Inc(Num);
    end
    else
      Token := aString;
  end;
  if Num >= TokenNum then
    Result := Token
  else
    Result := '';
end;

Benutzen hiermit:

geteilterstring := (Trim(GetToken(stringdergeteiltwerdensoll,'#',1))); // # = trennzeichen 1 = welcher teil vom string ausgelesen werden soll

Mach mal im Beitragstitel den "Sting" oben mal ein "STRING".
Der Beitragstitel ist irreführend. Bei 40.000 Beiträgen(?) liest man sich zu Tode.
Und "Ziffern aus String filtern" passt wohl eher.

Parse den Text zwischen "=" und "kg".
Also pos('=',DeinString) liefert die Position von = und pos('kg',DeinString) die Position
von 'kg'.
So müsste es (ungetestet) gehen:
Var Zahlen als String anlegen...
Zahlen:=Copy(Deinstring, pos('=',Deinstring)+1,Pos('kg',Deinstring)-pos('=',Deinstring)+1);

Roter Kasten:
Ich sende trotzdem mal meinen Vorschlag...