Probleme bei Schreiben in TfileStream.

[superman21]

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

[Gandalfus]

http://www.delphi-treff.de/content/t...dex.php4?kat=2

[superman21]

Hi

danke für die schnelle antwort. Hab den Fehler gefunden. Anstatt "titel" musste ich "pchar(titel)^" verwenden.

THX & CU