| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Для новичков > процедура для разных типов |
| Автор: klyaksa 3.9.2011, 13:04 |
| Строка пишется в поток: cs.Write(L, SizeOf(L)); cs(Str, L); cs.Write(Str[1], L * SizeOf(Char)); Целое, дробное ... разное пишется в поток: cs.Write(X, SizeOf(X)); Захотелось создать процедуру MyWrite() для записи в поток. Процедура должна быть перегруженная. MyWrite(cs: TStream; S: string); Overload; MyWrite(cs: TStream; X: integer); Overload; MyWrite(cs: TStream; S: int64); Overload; ... Как записать чтобы плодить 2, 3, ... Т.е. чтобы были 2 процедуры - для строки и для прочих типов. MyWrite(cs: TStream; S: string); Overload; MyWrite(cs: TStream; X: ???); Overload; |
| Автор: 14SatanA88 3.9.2011, 19:42 |
| можешь вообще оставить только одну процедуру: MyWrite(cs: TStream; S: Variant); Overload; а внутри процедуры уже выполняй различные действия, исходя из типа переданных данных. |