Как описать входной параметр процедуры многовариантно?

← →
IGOREK (2002-04-15 02:30) [36]

Все таки перезагрузка вещь хорошая.
Посмотрел историю обсуждения, и нашел, что тебе надо передавать
то String, то StringList.
Предлагаю такой вариант (может где ошибки - не компилировал):

procedure f1(FileName: TString)
var
SL: TStringList;
begin
SL.Lines.Add(FileName);
f2(SL);
end

procedure f2(var SL: TStringList)
begin
//общий код

if SL.Lines.Count = 0 then
//код для записи в SL
else
//код для записи в файл

//общий код
end

Может так тебе понравится ;-)

Как описать входной параметр процедуры многовариантно? Найти похожие ветки