thx das hat geholfen
.... und nun zum nexten problem
CODE-------------
procedure TMainform.Speichern1Click(Sender: TObject);
begin
if OpenDialog1.Filename<>'' then
begin
Richedit1.Lines.SavetoFile(OpenDialog1.Filename);
end else
begin
if SaveDialog1.Filename<>'' then
begin
Richedit1.Lines.SavetoFile(SaveDialog1.Filename);
end else
begin
if SaveDialog1.Execute then
begin
if SaveDialog1.Filename<>'' then
begin
Richedit1.Lines.SavetoFile(SaveDialog1.Filename);
OpenDialog1.Filename:='';
end;
end;
procedure TMainform.Drucken1Click(Sender: TObject);
begin
Richedit1.Print('');
end;
procedure TMainform.Beenden1Click(Sender: TObject);
begin
MainForm.Close;
end;
--------CODE
bei der rotmarklierten stelle meint delphi "anweisung erwartet, aber PROCEDURE gefunden"
.. was seltsam ist, da es sonst auch klappte.....