Jag har problem med en sträng i tidsformat, dvs den ser ut som följer...
- 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 ;-).



Anders

Hej
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
Sven

Mitt i prick!

Det fungerar och jag är tacksam för hjälpen...



Anders

Här är kommer en annan lösning som använder sig av DecodeTime.

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;

Man tackar!!!

Jag måste kvicka mig hem efter jobbet och prova din lösning, verkar helt klart intressant.




Anders

Det funkade alldeles utmärkt med detta exemplet oxå...
Roligt att man fick båda alternativen.
Ditt exempel har hamnat i Gottepåsen...


Anders