 |
|||
| HSG |
|
procedure TForm1.bmaDateiffnen1Click(Sender: TObject);
begin
if openBma.Execute
then
mBma.Lines.LoadFromFile(openBma.FileName);
end;
procedure TForm1.binDateispeichern1Click(Sender: TObject);
begin
if saveBin.Execute
then
rBin.Lines.SaveToFile(saveBin.FileName);
end;
