Попытался поставить на свой PC Mac OS X.Разработать диалоговую программу как Windows-приложение для работы с объектами заданного типа. Программа должна содержать меню и выполнять следующие операции: создание объектов двух заданных классов и сохранение их в списке TList, просмотр и редактирование объектов, сохранение объектов в потоке TList и загрузка их из потока.
unit Unit2;Важно не упустить следующие вещи:
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Contnrs;
type
TOrganization = class(TComponent)
Private
Name: String;
Year_founded: Integer;
Capital: Real;
Protected
Public
Constructor Create(Collection: TComponent); override;
Procedure Show(); virtual; abstract;
Published
Property MyName: String read Name write Name;
Property MyYear_founded: Integer read Year_founded write Year_founded;
Property MyCapital: Real read Capital write Capital;
end;
TInsurance = class(TOrganization)
Private
Clients: Integer;
Protected
Public
Constructor Create(nname: string; ncapital: real; nyear: integer; nclients: Integer);
Procedure Show(); override;
Published
Property MyClients: Integer read Clients write Clients;
end;
TShipbuilding = class(TOrganization)
Private
Vessel: Integer;
Protected
Public
Constructor Create(nname: string; ncapital: real; nyear: integer; nvessel: Integer);
Procedure Show(); override;
Published
Property MyVessel: Integer read Vessel write Vessel;
end;
implementation
uses Unit5, Unit6, Unit7;
Constructor TOrganization.Create;
begin
end;
Constructor TInsurance.Create(nname: string; ncapital: Real; nyear: integer; nclients: Integer);
begin
Name:=nname;
Year_founded:=nyear;
Capital:=ncapital;
Clients:=nclients;
end;
Constructor TShipbuilding.Create(nname: string; ncapital: Real; nyear: integer; nvessel: Integer);
begin
Name:=nname;
Year_founded:=nyear;
Capital:=ncapital;
Vessel:=nvessel;
end;
Procedure TInsurance.Show();
begin
Form5.Edit1.Text:=Name;
Form5.Edit2.Text:=inttostr(round(Capital));
Form5.Edit3.Text:=inttostr(Year_founded);
Form5.Edit4.Text:=inttostr(Clients);
Form7.Visible:=True;
Form5.Visible:=True;
end;
Procedure TShipbuilding.Show();
begin
Form6.Edit1.Text:=Name;
Form6.Edit2.Text:=inttostr(round(Capital));
Form6.Edit3.Text:=inttostr(Year_founded);
Form6.Edit4.Text:=inttostr(Vessel);
Form7.Visible:=True;
Form6.Visible:=True;
end;
initialization
RegisterClasses([TComponent, TOrganization, TInsurance, TShipbuilding]);
end.
procedure TForm3.Button1Click(Sender: TObject);4. Итак, самое интересное. Функция записи в файл реализована на TStream с использованием функции WriteComponent. Вызывается из соответствующего пункта меню на Form1.
Var
NewInsurance: TInsurance;
begin
if Edit4.Text='' then Edit4.SetFocus;
if Edit3.Text='' then Edit3.SetFocus;
if Edit2.Text='' then Edit2.SetFocus;
if Edit1.Text='' then Edit1.SetFocus;
if ((Edit1.Text<>'') and(Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'')) then
Begin
NewInsurance:=TInsurance.Create(Edit1.Text,strtofloat(Edit2.Text), strtoint(Edit3.Text), strtoint(Edit4.Text));
MyArray.Add(NewInsurance);
Form1.ListBox1.Items.Add(NewInsurance.MyName);
Modified:=true;
ModalResult:= mrOK;
End;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
Form3.Close;
end;
procedure TForm1.N2Click(Sender: TObject);5. Функция Чтения из файла. Здесь на нас трудится функция ReadComponent.
var
FileStream: TStream;
I: Integer;
MySave: TOrganization;
begin
if not Modified then exit;
SaveDialog1:=TSaveDialog.Create(self);
SaveDialog1.Filter:='dat';
SaveDialog1.DefaultExt:='dat';
if SaveDialog1.Execute then
Begin
FileStream:=TFileStream.Create(SaveDialog1.FileName, fmCreate);
for I:=0 to MyArray.Count-1 do
Begin
MySave:=TOrganization(MyArray.Items[I]);
FileStream.WriteComponent(MySave as TOrganization);
End;
FileStream.Free;
end;
Modified:=false;
End;
procedure TForm1.N3Click(Sender: TObject);Прошу прощения, что код программы не полон и отсутствуют толковые комментарии. Возможно подобная инструкция кому-нибудь пригодится :)
var
FileStream: TStream;
Temp: TComponent;
MyLoad: TOrganization;
begin
OpenDialog1:=TOpenDialog.Create(self);
OpenDialog1.Filter:='dat';
OpenDialog1.DefaultExt:='dat';
if OpenDialog1.Execute then
Begin
//Очистка
MyArray.Clear;
ListBox1.Clear;
ListBox2.Clear;
//Сама загрузка
FileStream:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
while FileStream.Position
begin
MyLoad:=TOrganization.create(self);
MyLoad:=TOrganization(FileStream.ReadComponent(nil));
MyArray.Add(MyLoad);
if MyLoad is TInsurance then ListBox1.Items.add(MyLoad.MyName);
if MyLoad is TShipbuilding then ListBox2.Items.Add(MyLoad.MyName);
end;
Modified:=false;
FileStream.Free;
End;
end;
Отсюда мы видим, что IBM как-то неверно использует команду mktemp и в итоге временный каталог не создаётся. Придётся лезть в бинарник и править их скрипт. Из-за большого размера Vim открывал файл слишком долго, редактор MC вообще отказался работать с ним. Поэтому я решил воспользоваться GHex, редактором двоичных файлов. Ниже приведу скрипт распаковки, написанный IBM:./IBM_Lotus_Symphony_linux.binIBM Lotus Symphony Beta - starting installation... please waitmktemp: cannot make temp dir /tmp/symphony.tmp27943: Invalid argumenttar: для опции требуется аргумент -- CПопробуйте `tar --help' или `tar --usage' для получения дополнительной информации../IBM_Lotus_Symphony_linux.bin: line 23: ./setup.bin: Нет такого файла или каталога
Проблемы начинаются с команды:#!/bin/sh # IBM Lotus Symphony Beta echo "" echo " IBM Lotus Symphony Beta - starting installation... please wait" echo "" # create a temp directory to extract to. RANDOM=$$$(date +%s) export WRKDIR=`mktemp -d /tmp/symphony.tmp$RANDOM` SKIP=`awk '/^__ARCHIVE_FOLLOWS__/ { print NR + 1; exit 0; }' $0`# Take the TGZ portion of this file and pipe it to tar. tail -n +$SKIP $0 | tar xz -C $WRKDIR # execute the installation script PREV=`pwd` cd $WRKDIR ./setup.bin $* # delete the temp files cd $PREV rm -rf $WRKDIR exit 0__ARCHIVE_FOLLOWS__ #Здесь и ниже идёт сам архив.
Заменим её на следующую и сохраним файл:mktemp -d /tmp/symphony.tmp$RANDOM
Далее выясняется, что для работы инсталлера нужна программа bc. Устанавливаем её из репозитария. После чего установка начинается штатно.mktemp -d