DELPHI 05 Sortier- und Suchalgorithmen © Herbert Paukert

Herbert Paukert: Programmieren in DELPHI – Grundkurs, Teil 5 114
if (FName = '') or (Pos('.',FName) = 0) then DefaultExt := 'txt'
else DefaultExt := 'rtf';
FilterIndex := OpenDialog1.FilterIndex;
Options := [ofOverwritePrompt];
FileName := FName;
if Execute then begin
Verz := Trim(ExtractFilePath(FileName));
Ext := Trim(LowerCase(ExtractFileExt(FileName)));
FName := Trim(ExtractFileName(FileName));
if (Ext = '.rtf') then RichEdit1.PlainText := False
else RichEdit1.PlainText := True;
Try
RichEdit1.Lines.SaveToFile(FileName);
Except
MessageBox(0,'Daten-Fehler','Problem',16);
end;
end;
end;
Label2.Caption := 'Datei: ' + FName;
end;
end;
procedure TForm1.Drucken1Click(Sender: TObject);
begin
RichEdit1.Print('');
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;
end;
procedure TForm1.Kopieren1Click(Sender: TObject);
// Bearbeiten - Kopieren
begin
RichEdit1.CopyToClipBoard;
end;
procedure TForm1.Einfgen1Click(Sender: TObject);
// Bearbeiten - Einfügen
begin
RichEdit1.PasteFromClipboard;
end;