Wie bekomme ich die Zahl aus der Memo Line

[klaus33]

Hi
Ich will wissen wie ich die Zahl 16.25 herrausnehmen kann aus:

Delphi-Quellcode:

if Memo2.Lines.Strings[0]='55' then 
Memo2.Lines[1]:='Bitte zahlen Sie '+FloatToStr([b]16.25[/b])+' Euro'; 
end;

Ich habe es mit folgenden Befehlen versucht es geht aber nicht (vermute darf nicht die ganze Memo Line eingeben:

Delphi-Quellcode:

procedure TForm1.LeinEuroClick(Sender: TObject); 
var einEuro: Real; 
Preis:String; 
Preisx:Real; 
Rueckgabe:Real; 
begin 

einEuro:=1; 

Preis:=Memo2.Lines.Strings[1]; 
Preisx:=StrtoFloat(Preis); 
Rueckgabe := Preisx-einEuro; 
Memo2.Lines.Strings[1]:=FloattoStr(Rueckgabe); // hier
end;

Bitte gibt mir eine Antwort


[edit=Matze][delphi]Tags gesetzt und anstelle des [b]-Codes die Zeile mit einem Kommantar gekennzeichnet.
Bitte füge die [delphi]-Tags zukünftig ein. MfG, Matze[/edit]

[Klaus01]

Hallo,

was steht denn sonst noch im Memo2.lines.Strings[0]?

Kannst Du mal ein Beispiel einstellen.

Grüße
Klaus

[klaus33]

Im Memo2.Lines.String[0] stehen außerdem noch 15 andere vierstellige Zahlen
bei gegebenen Bedingungen.

aber ich will doch die
Memo2.Lines.String[1] ansprechen

[Klaus01]

Zitat von klaus33:

Im Memo2.Lines.String[0] stehen außerdem noch 15 andere vierstellige Zahlen
bei gegebenen Bedingungen.

aber ich will doch die
Memo2.Lines.String[1] ansprechen

Und was steht da so drinnen?
Doch wahrscheinlich etwas mehr als nur 16.25 oder?

Grüße
Klaus

[klaus33]

Auf dieser Memo.Line steht
'Bitte zahlen Sie '+FloatToStr(16.25)+' Euro'
und noch 15 weitere Zahlen, die auch mit der Bedingung abhängt

[Klaus01]

Zitat von klaus33:

Auf dieser Memo.Line steht
'Bitte zahlen Sie '+FloatToStr(16.25)+' Euro'
und noch 15 weitere Zahlen, die auch mit der Bedingung abhängt

Das könnte in etwas so gehen:

Delphi-Quellcode:

ziffernzahl := pos(Memo1.lines.strings[1],'Euro') - pos(Memo1.lines.strings[1],'Sie')
s := copy(Memo1.lines.Strings[1],pos(Memo1.lines.Strings[1],'Sie'),ziffernzahl);
preis := StrToFloat(s);

Grüße
Klaus

[shmia]

Vielleicht solltest du das Problem erst mal etwas reduzieren.
Du hast folgenden String:

Delphi-Quellcode:

var
  s: string;
begin
  s := 'Bitte zahlen Sie 16,25 Euro';

Und jetzt über leg' mal, wie kommst du an die Zahl ran ???
Man müsste Zeichen für Zeichen durchgehen und schauen, ob es eine Ziffer ist.
Dann Zeichen für Zeichen weitergehen bis Stringende oder ein Zeichen kommt,
das nicht in der Menge ['0'..'9', ',', '.'] ist.
Jetzt hast du die Startposition und die Anzahl:

Delphi-Quellcode:

zahlstring := Copy(s, startpos, laenge);
zahl := StringToFloat(zahlstring);

[DeddyH]

[Vollkommen OT] @shmia: Ist das Dein Code bei den Schweizern zum Auslesen der Proxy-Einstellungen des IE, oder ist das nur eine zufällige Namensgleichheit? [/Vollkommen OT]