100% рабочий код
Код:
type
TLogin = record
Driver: String;
end;
function Super: TLogin;
begin
Result.Driver:='Ok';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage(Super.Driver);
end;
__________________
Пишу программы за еду.
__________________
|