Строка пишется в поток:

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;

можешь вообще оставить только одну процедуру:

MyWrite(cs: TStream; S: Variant); Overload;

а внутри процедуры уже выполняй различные действия, исходя из типа переданных данных.

Это сообщение отредактировал(а) 14SatanA88 - 4.9.2011, 15:26