unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Menus, XPStyleActnCtrls, ActnList, ActnMan,
ToolWin, ActnCtrls, ActnMenus, jpeg, ExtCtrls;
type punktschrift =
class
public
//function ntop(b:String):String;
end;
type
TForm1 =
class(TForm)
eingabe: TMemo;
ausgabe: TMemo;
OpenDialog1: TOpenDialog;
ActionManager1: TActionManager;
ActionMainMenuBar1: TActionMainMenuBar;
ActionList1: TActionList;
Action1: TAction;
Action2: TAction;
Action3: TAction;
Action4: TAction;
SaveDialog1: TSaveDialog;
procedure FormCreate(Sender: TObject);
procedure eingabeChange(Sender: TObject);
procedure ffnen1Click(Sender: TObject);
procedure speichernClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.eingabeChange(Sender: TObject);
{var
grenze, i : Integer;
begin
grenze := 60;// Wie viele Zeilen darf das Memo nicht überschreiten
if eingabe.Lines.Count > grenze then
for i := (eingabe.Lines.Count - 1) downto grenze do
eingabe.Lines.Delete(i); }
begin
ausgabe.Text:=eingabe.Text;
end;
procedure TForm1.ffnen1Click(Sender: TObject);
VAR Datei : TextFile;
Zeile :
STRING;
i : Integer;
begin
//OpenDialog1.FileName := ProfVerz+'\Profile.hbs';
OpenDialog1.Filter := '
BRL files|*.BRL;';
if OpenDialog1.Execute
then
TRY
eingabe.Lines.Loadfromfile(OpenDialog1.Filename);
EXCEPT
ShowMessage ('
Fehler beim Laden der Datei!');
END;
end;
procedure TForm1.speichernClick(Sender: TObject);
begin
if SaveDialog1.Execute
then
TRY
eingabe.Lines.SavetoFile(SaveDialog1.Filename);
EXCEPT
ShowMessage ('
Fehler beim Speichern der Datei!');
END;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//eingabe.MaxLength:=100;
//ausgabe.MaxLength:=100;
end;
end.