передача значений с одной формы на другую

@pk_100 · Регистрация: 18.03.2013

Author24 — интернет-сервис помощи студентам

Почему выдает ошибку, когда я вот так передаю значения с одной формы на другую???

Pascal

procedure Tklient.DBGrid1CellClick(Column: TColumn);
var
  info: Tinfo;
begin
  info:= Tinfo.create(DSet.FieldValues['fam']);
  info.ShowModal;
end;

@FIL · 15.03.2014, 20:33

Что такое Tinfo?

@Miravild · 16.03.2014, 00:33

Немного коряво

Сообщение от pk_100

procedure Tklient.DBGrid1CellClick(Column: TColumn); var info: Tinfo; begin info:= Tinfo.create(DSet.FieldValues['fam']); info.ShowModal; end;

Delphi

1 2	with DSet do Info(FieldByName('fam').AsString);

И далее в Info

Delphi

type
 
public
 
end;
 
function Info(const AFam: String): Boolean;
 
implementation
 
function Info(const AFam: String): Boolean;
var
  fInfo: TfInfo;
begin
  // Создаем форму
  fInfo := TInfo.Create(Application);
  try
   // что-то делаем
finally
FreeAndNil(fInfo);
end;
 
end;

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	15.03.2014, 20:33	2
	Что такое Tinfo? 0

	16.03.2014, 00:33

передача значений с одной формы на другую

Решение