Forum: Sonstige Fragen zu Delphi
Delphi
by Minz,
14. Nov 2004
Recht haddu, aber ich wusste ja was gemeint war...
Forum: Sonstige Fragen zu Delphi
Delphi
by Minz,
14. Nov 2004
s:='0.001 abc 1.45'; //zum Testen
zahl:=false;
for i:=1 to length(s) do begin
if (ord(s)>=48) and (ord(s)<=57) and (not zahl) then begin
zahl:=true;
zahlstart:=i;
end;
if zahl then begin
if (s<>'.') then begin
if (ord(s)<48) or (ord(s)>57) then begin
Forum: Sonstige Fragen zu Delphi
Delphi
by Minz,
13. Nov 2004
achso keine feste Position:
Dann durchläufst du solange den String:
- bis du eine Zahl findest
- bis die Zahl von einem anderen Zeichen abgebrochen wird
- bis der String zuende ist
zahl: boolean;
zahlstart, zahllength: integer;
Forum: Sonstige Fragen zu Delphi
Delphi
by Minz,
13. Nov 2004
TStringList ist ein Objekt. Wenn du es benutzen willst, musst du eine erstellen.
Wenn du die Zahlen nicht als Zahlen brauchst sondern erstmal als strings dann:
v1, v2: string;
sl: TStringlist;
pos: integer;
sl:=TStringList.create;
v1:='v1='+copy(s,1,4);
Forum: Sonstige Fragen zu Delphi
Delphi
by Minz,
13. Nov 2004
Wenn die Zahlen an einer festen Position im String stehen,
wie du sagt Bit 1-5 und 11-14 etc. dann ist das nicht so schwer.
v1:=strtofloat(copy(s,1,5));
v2:=strtofloat(copy(s,11,4));
ahso glaube du musst den Punkt vorher in ein Komma umwandeln damit strtofloat funktioniert...
Forum: Sonstige Fragen zu Delphi
Delphi
by Minz,
11. Nov 2004
verstehe ehrlich gesagt noch nicht so ganz wo genau dein Problem liegt :)
Weißt du nicht, wie du die Zahlen aus dem String holst?
Hast du Probleme die StringList zu verwenden?
etc.