Irgend wie blicke ich nun gar nicht mehr durch!!! Jetzt habe, glaube ich, totalen Müll zusammen gedichtet:
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
T: TFileStream;
F: TextFile;
//T: TextFile;
Dateiname: String;
SL: TStringList;
begin
Dateiname := ExtractFilePath(Application.ExeName)+Label24.Caption+'.txt';
AssignFile(F, Dateiname);
Rewrite(F);
CloseFile(F);
Label20.Caption:='mms://'+Label11.Caption+':4853/No-Limit';
Memo3.Text:=Label20.Caption;
T := TFileStream.Create(Label24.Caption+'.txt', fmCreate);
T.Write(SL.Text[1], Length(SL.Text));
//SL := TStringList.Create;
//SL.LoadFromFile(Label24.Caption+'.txt');
//SL.AddStrings(Memo3.Lines);
//SL.Delete(SL.Count-2);
SL.SaveToFile(Label24.Caption+'.txt');
SL.Free;
Jetzt klappt garnichts mehr!