Mein Computer pfeift Lapaloma - Aber wie? -->Windows.Beep

[implementation]

Textdateien sind da nicht so sinnvoll. Speichere es binär!

Hier zum Laden:

Delphi-Quellcode:

type
  TTon = record
    Frequenz: Word;
    BPM: Word;
  end;
  TLied = array of TTon;
  TNotenblatt = file of TTon;
var
  f: TNotenblatt;
  l: TLied;
  t: TTon;
begin
  AssignFile(f, 'Lieddatei');
  Reset(f);
  while not eof(f) do begin
    Read(f,t)
    SetLength(l,Length(l)+1);
    l[Length(l)-1] := t;
  end;
  CloseFile(f);
end;