// *** Beispiel : Uhrzeitangabe in Minuten ausgeben. 1. unit uTimestringToMinutes; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} function ChangeTimestringToMinutes(TimeString: String): String; const Seperator: String = ':'; var Hour: Integer; Minutes: Integer; begin try (* Copy: Returns a substring of a string or a segment of a dynamic array. function Copy(S; Index, Count: Integer): string; function Copy(S; Index, Count: Integer): array; Pos: Returns the index value of the first character in a specified substring that occurs in a given string. function Pos(Substr: string; S: string): Integer; *) Hour := StrToInt(Copy(Timestring, 0, Pos(Seperator, TimeString) - 1)); //ShowMessage(IntToStr(Hour)); Minutes := StrToInt(Copy(TimeString, Pos(Seperator, TimeString) + 1, Length(TimeString))); //ShowMessage(IntToStr(Minutes)); Result := IntToStr((Hour * 60) + Minutes); except Result := ''; end; end; procedure TForm1.Button1Click(Sender: TObject); var r: String; begin r := ChangeTimestringToMinutes(Edit1.Text); if r <> '' then Form1.Caption := r + ' Minutes...' else Form1.Caption := r; end; procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Text := '10:15'; end; end.