Jag har problem med en sträng i tidsformat, dvs den ser ut som följer... Hej Här är kommer en annan lösning som använder sig av DecodeTime. Man tackar!!! Det funkade alldeles utmärkt med detta exemplet oxå...StrToInt-problem
- 00:00:00 - , denna vill jag göra om till en integer.
Jag vet inte om jag är tokigt på det men om det är som jag tror så måste jag på något vis allra först försöka ta ut dubbelnollorna för sig ur strängen innan det överhuvudtaget kan bli en integer.
Jag vill alltså ta ut nollorna ur strängen enl. nedan för att sedan kunna göra om dessa till en integer.
00 (timmar)
00 (minuter)
00 (sekunder)
Problemet är alltså att ta ut nollorna ;-).
AndersSv: StrToInt-problem
Om jag förstått din fråga rätt så tror jag att det
är ungefär så här du vill ha det.
procedure TForm1.Button1Click(Sender: TObject);
Var
tim : Integer ;
min : Integer ;
sek : Integer ;
testStr : String ;
begin
testStr := '00:15:42' ;
tim := StrToInt(Copy(testStr,1,2));
min := StrToInt(Copy(testStr,4,2));
sek := StrToInt(Copy(testStr,7,2));
Label1.Caption := IntToStr(tim) + ' '
+ IntToStr(min) + ' '
+ IntToStr(sek) ;
end;
mvh
SvenSv: StrToInt-problem
Var
tim : word;
min : word;
sek : word;
msek : word;
testStr : String;
Tid: TTime;
begin
testStr := '00:15:42';
Tid := StrToTime(testStr);
DecodeTime(Tid, tim, min, sek, msek);
Label1.Caption := IntToStr(tim) + ' '
+ IntToStr(min) + ' '
+ IntToStr(sek);
end;Sv: StrToInt-problem
Jag måste kvicka mig hem efter jobbet och prova din lösning, verkar helt klart intressant.
AndersSv: StrToInt-problem
Roligt att man fick båda alternativen.
Ditt exempel har hamnat i Gottepåsen...
Anders