kleiner Untertitel Editor

[herkulesamstart]

Hallo,

ich hab mir mal einen kleinen Untertitel Editor zusammen gebastelt.

Funktionen:

• Kann Untertitel bearbeiten (Start/Ende/Text einer Szene veraendern)
• Zeit skalieren.
• Zeit verschieben.

Untertitel-Datei (Textfile):

Zitat:

0
00:00:01,000 --> 00:00:02,000
Text...
...

1
00:00:03,000 --> 00:00:04,000
Text...
...

dafuer habe ich folgenden Typ festgelegt:

Delphi-Quellcode:

  Tmystr = string[150];

  Tzeit = record
            hour : Integer;
            min : Integer;
            sec : Integer;
            mill : Integer
          end;

  Tsubtitel = Array[1..4] of Tmystr;

  Tdatatyp = record
               nummer : Integer;
               start : Tzeit;
               ende : Tzeit;
               sub : Tsubtitel;
             end;

  Tdb = Array[1..2000] of record
                            data : Tdatatyp;
                            high : integer;
                          end;

also viel Spaß damit,
herkulesamstart

Ps.: klar will ich euren Senf dazu hoeren! Vllt auch Kommentare zum meinen Programmierstil(der ja gar keiner ist^^)