Hi,
ich möchte gerade aus einem Zeit String wie Z.B. diesem hier:
02:10:234 die einzelnen Werte extrahieren um sie dann wieder in Ms umzurechnen.
Mein Ansatz sieht bis jetzt so aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| function TForm1.FormatMS2Ms(Format:string): integer;
var
min,sec,ms: integer;
begin
min := StrToInt(Copy(Format, 1, 2));
sec := StrToInt(Copy(Format, 4, 5));
ms := StrToInt(Copy(Format, 7, 9));
min := min * 60000;
sec := sec * 1000;
result:= min + sec + ms;
end; |
Probleme gibts aber an der Stelle sec := StrToInt(Copy(Format, 4, 5)); hier gibt er den Fehler aus 10:23 ist kein gültiger Integerwert, logisch ist es ja auch nicht. Aber sollte sec nicht eigentlich bei einem Copy von 4,5 nur die 10 annehmen ?
mfg Blamaster
