Einzelnen Beitrag anzeigen

superman21

Registriert seit: 17. Feb 2004
7 Beiträge
 
#1

Probleme bei Schreiben in TfileStream.

  Alt 17. Feb 2004, 15:04
Hi

Ich will ein Programm schreiben mit dem ich Id3 tags bearbeiten kann. Bin jetzt soweit, das ich eine Datei in einen Tfilestream einlese, dann an die Stelle springe wo der z.b. der Titel gespeichert wird springe und dann dort den Titel änder. Allerdings werden anstatt "blabla" irgendwelche komischen Zeichen.
Kann mir einer sagen wo dran es liegt??

Hier ist der Code.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var datei: tfilestream;
    titel: string;
    size: integer;
begin
  titel:='blablabla';
  datei:= tfilestream.create ('D:\Neuer Ordner\Various Artists - Echt! - Wo bist du jetzt.aac',fmopenreadwrite);
  Size:= datei.Size;
  edit1.Text:= inttostr(size);
  edit2.text:= titel;
  datei.Position:= Size-125;
  datei.Write(titel,30);
  beep;
  datei.Free;
end;
Danke schon mal fpr eure antworten.

CU
  Mit Zitat antworten Zitat