[Delphi] Naar file wegschrijven hoe?

[active2]

Ik heb de help van delphi al doorzocht naar een example of iets dergelijks maar niks te vinden. Ik heb het op de volgende manier geprobeerd maar ik krijg telkens de fouterror 105 en dat betekend dat de file niet geopend is voor output. Wie kan helpen?

code:

procedure TGrafiekTeken.Save1Click(Sender: TObject);
var Opslag: TextFile;
  i: Integer;
begin
  AssignFile(Opslag, SaveFile.FileName);
  Rewrite(Opslag);
  for i := 1 to (Waarden.Count - 1) do
  begin
    Grapje := Waarden.Items[i];
    Writeln(Opslag, Grapje.bx, ';', Grapje.by);
  end;
  CloseFile(Opslag);
  SaveFile.Execute;
end;

Waarden is een TList en Grapje is een eigen gemaakt object.

Wie helpt?

[Verwijderd]

Writeln(Opslag, Grapje.bx, ';', Grapje.by);

Volgens mij moet dit al zijn
Writeln(Opslag, Grapje.bx + ';'+ Grapje.by);

[Varienaja]

code:

procedure TGrafiekTeken.Save1Click(Sender: TObject);
var Opslag: TextFile;
  i: Integer;
begin
  if SaveFile.Execute then begin
     AssignFile(Opslag, SaveFile.FileName);
     Rewrite(Opslag);
     for i := 1 to (Waarden.Count - 1) do
     begin
     Grapje := Waarden.Items[i];
     Writeln(Opslag, Grapje.bx, ';', Grapje.by);
     end;
     CloseFile(Opslag);
   end;
end;

Wat je precies voor dingen wilt wegschrijven weet ik niet, zal wel text zijn, gezien je variabele.

Ikzelf schrijf m'n stuff liever in de 'bikkelmode' binary file.

[active2]

Thanks dat is hem