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

Herbert Paukert: Textverarbeitung in DELPHI 15
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Memo1DblClick(Sender: TObject);
procedure RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure RichEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FindDialog1Find(Sender: TObject);
procedure ReplaceDialog1Find(Sender: TObject);
procedure ReplaceDialog1Replace(Sender: TObject);
procedure Neu1Click(Sender: TObject);
procedure ffnen1Click(Sender: TObject);
procedure Speichern1Click(Sender: TObject);
procedure Drucken1Click(Sender: TObject);
procedure Ende1Click(Sender: TObject);
procedure AllesMarkieren1Click(Sender: TObject);
procedure Ausschneiden1Click(Sender: TObject);
procedure Kopieren1Click(Sender: TObject);
procedure Einfgen1Click(Sender: TObject);
procedure Suchen1Click(Sender: TObject);
procedure Ersetzen1Click(Sender: TObject);
procedure SortierenText1Click(Sender: TObject);
procedure SortierenZahl1Click(Sender: TObject);
procedure Statistik1Click(Sender: TObject);
procedure Komprimieren1Click(Sender: TObject);
procedure GehezurZeile1Click(Sender: TObject);
procedure Schriftart1Click(Sender: TObject);
procedure Schriftgre1Click(Sender: TObject);
procedure Groschrift1Click(Sender: TObject);
procedure Kleinschrift1Click(Sender: TObject);
procedure Hochstellen1Click(Sender: TObject);
procedure iefstellen1Click(Sender: TObject);
procedure Normalstellen1Click(Sender: TObject);
procedure Umbruchea1Click(Sender: TObject);
procedure Hilfe1Click(Sender: TObject);
private { Private declarations }
public { Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
{$R hochtief.RES}
type ZFeld = array[0..1000] of Real;
Matrix = array[0..1000,0..1000] of Real;
// Zahlenfeld
// Zahlenmatrix
const Rand : Integer = 10; // Textrand
PiChar : String = #182; // PI-Symbol
FormFeed : String = #182#13#10;
// PI-Symbol + LineFeed
FontNorm : Integer = 14;
// Standard-Schriftgröße
var ResStream: TResourceStream; // Ressourcen-Stream
TA0: TTextAttributes;
// Text-Attribut-Variable
REA: TTextAttributes;
REF: TFont;
// Text-Schrift-Variable