unit text2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ComCtrls;
type
TForm1 =
class(TForm)
MainMenu: TMainMenu;
Datei1: TMenuItem;
Aoeffnen: TMenuItem;
Speichern1: TMenuItem;
Schlieen1: TMenuItem;
StatusBar: TStatusBar;
RichEdit: TRichEdit;
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
Neu1: TMenuItem;
Ersetzen1: TMenuItem;
Zeile7durchtest21: TMenuItem;
RichEdit2: TRichEdit;
BestimmtenSatzersetzen1: TMenuItem;
Satzfindenundersetzen1: TMenuItem;
Hier_wird_der_Text_angezeigt_welcher_zum_ersetzen_dient: TStaticText;
search: TEdit;
Suche: TLabel;
procedure Schlieen1Click(Sender: TObject);
procedure AoeffnenClick(Sender: TObject);
procedure Speichern1Click(Sender: TObject);
procedure Neu1Click(Sender: TObject);
procedure Zeile7durchtest21Click(Sender: TObject);
procedure BestimmtenSatzersetzen1Click(Sender: TObject);
procedure neuestring1Click(Sender: TObject);
procedure Satzfindenundersetzen1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Schlieen1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.AoeffnenClick(Sender: TObject);
begin
If Opendialog.Execute
then
begin
if FileExists(OpenDialog.Filename)
then
begin
Richedit.Lines.LoadfromFile(OpenDialog.Filename);
end;
end;
end;
procedure TForm1.Speichern1Click(Sender: TObject);
begin
if SaveDialog.Execute
then
begin
Richedit.Lines.SavetoFile(SaveDialog.Filename);
end;
end;
procedure TForm1.Neu1Click(Sender: TObject);
begin
Richedit.Lines.Clear;
end;
procedure TForm1.Zeile7durchtest21Click(Sender: TObject);
begin
OpenDialog.Execute;
Richedit2.Lines.LoadfromFile(OpenDialog.Filename);
RichEdit.Lines.Strings[6]:= Richedit2.Lines.Text;
end;
procedure TForm1.BestimmtenSatzersetzen1Click(Sender: TObject);
begin
OpenDialog.Execute;
Richedit2.Lines.LoadfromFile(OpenDialog.Filename);
RichEdit.Text := StringReplace(RichEdit.Text, '
Das Linzer Volksblatt berichtete Anfang Jänner 1894:', Richedit2.Lines.Text, [rfReplaceAll, rfIgnoreCase]);
end;
procedure TForm1.neuestring1Click(Sender: TObject);
begin
end;
procedure TForm1.Satzfindenundersetzen1Click(Sender: TObject);
begin
end;
end.