База Алиас

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Panel1: TPanel;
BitBtn2: TBitBtn;
Button1: TButton;
Image1: TImage;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
path,psave,s1,titl,cont: string;
f1,f2: textfile;
i: integer;
begin
if opendialog1.Execute then path:=opendialog1.FileName else exit;
AssignFile(f1, path);
psave:=extractfilepath(path)+'m1c_aliases.ini';
AssignFile(f2, psave);
try
rewrite(f2);
except
showmessage('Ошибка создания конечного файла');
exit
end;
try
Reset(f1);
except
showmessage('Ошибка открытия исходного файла');
exit
end;
while not eof(f1) do
begin
readln(f1,s1);
titl:=s1[1];
for i:=2 to length(s1) do
if s1[i]<>':' then titl:=titl+s1[i] else
begin
cont:=copy(s1,i+1,length(s1)-(i));
break
end;
Writeln(f2,'['+cont+']');
Writeln(f2,titl);
if s1='' then readln(f1,s1);
end;
Closefile(f1);
Closefile(f2);
end;

end.