T E X T Textverarbeitung © Herbert Paukert - von Herbert Paukert

Herbert Paukert: Textverarbeitung in DELPHI 30
Try
RichEdit1.Lines.SaveToFile(FileName);
Except
MessageBox(0,'Daten-Fehler','Problem',16);
end;
end;
end;
Label2.Caption := FName;
end;
end;
procedure TForm1.Drucken1Click(Sender: TObject);
// Text ausdrucken (WYSIWYG)
begin
RTFPrint(RichEdit1,RichEdit2);
RichEdit1.SetFocus;
end;
procedure TForm1.Ende1Click(Sender: TObject);
// Programm beenden
begin
Form1.Close;
end;
procedure TForm1.AllesMarkieren1Click(Sender: TObject);
// Bearbeiten - Alles Markieren
begin
RichEdit1.SelectAll;
end;
procedure TForm1.Ausschneiden1Click(Sender: TObject);
// Bearbeiten - Ausschneiden
begin
RichEdit1.CutToClipBoard;
RichEdit1.SetFocus;
end;
procedure TForm1.Kopieren1Click(Sender: TObject);
// Bearbeiten - Kopieren
begin
RichEdit1.CopyToClipBoard;
RichEdit1.SetFocus;
end;
procedure TForm1.Einfgen1Click(Sender: TObject);
// Bearbeiten - Einfügen
begin
RichEdit1.PasteFromClipboard;
RichEdit1.SetFocus;
end;
procedure TForm1.Suchen1Click(Sender: TObject);
// Text suchen
begin
FindDialog1.Position := Point(RichEdit1.Width div 2,RichEdit1.Height div 2);
FindDialog1.Execute;
end;