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

Herbert Paukert: Textverarbeitung in DELPHI 26
Memo1.Left := RichEdit1.Left + 8;
Memo1.Top := RichEdit1.Top + 8;
end;
procedure TForm1.Memo1DblClick(Sender: TObject);
// Hilfstext ausdrucken
begin
PrintMemo(Memo1);
end;
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
// Aktuelle Spalte und Zeile anzeigen
begin
ShowColRow(RichEdit1,Label1);
end;
procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var S,T: String;
P,N: Integer;
Z : Real;
begin
ShowColRow(RichEdit1,Label1);
// Aktuelle Spalte und Zeile anzeigen
// Markierung für Seitenvorschub einfügen
if (key = 13) and (Shift = [ssCtrl]) then begin
FontDialog1.Font.Assign(RichEdit1.SelAttributes);
RichEdit1.SelAttributes.Assign(REF);
RichEdit1.SelText := FormFeed;
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
end;
if (key = vk_F1) then begin // Aktuelle Textzeile mathematisch auswerten
N := RichEdit1.CaretPos.Y;
T := RichEdit1.Lines[N];
P := Pos('=',T);
S := RemoveBlank(Copy(T,1,P-1));
if (P = 0) or (S='') then begin
ShowMessage('Auswertungs-Fehler !');
Exit;
end;
Z := Parse(S,ATT);
if (ATT3) then begin
ShowMessage('Auswertungs-Fehler !');
Exit;
end;
Str(Z:10:2,T);
T := S + ' = ' + Trim(T);
RichEdit1.Lines[N] := T;
end;
if (Key = vk_F2) then begin // ANSI-Codes aller Textzeichen auflisten
For N := 1 to 255 do begin
T := Chr(N);
if (N = 9) or (N = 10) or (N = 13) then T := #32;
S := T + #9 + IntToStr(N);
Richedit1.Lines.Add(S);
end;
end;
end;