SysUtils

← →
Evgeniy_K (2004-06-08 21:11) [0]

Есть лли что-нибудь полегче SysUtils?

← →
Marser © (2004-06-09 02:06) [1]

Фестал принимай. Или Мезим. Или откажись от столь тяжелой пищи. Особенно на ночь.

← →
Mim1 © (2004-06-09 03:59) [2]

- Передайте пожалуйста простой карандаш
- Держите
- Но ведь это красный!
- А что красный для вас это слишком сложно?

← →
sniknik © (2004-06-09 09:11) [3]

по моему в KOL есть замена (там и System меняется, пару тройку килобайт можно сбросить).

← →
Evgeniy_K (2004-06-09 14:45) [4]

Это не выход. В сумме набирается около 50 Кб всякого мусора в этом модуле. Ме же нужно только 3 функции, где-то 5 кб, но руками гиморно оттуда их целиком выдирать. Может все-таки существует более легкая альтернатива?

← →
Игорь Шевченко © (2004-06-09 14:47) [5]

> Может все-таки существует более легкая альтернатива?

Ассемблер ?

← →
Mystic © (2004-06-09 15:12) [6]

Какие функции?

← →
blackman © (2004-06-09 17:10) [7]

>но руками гиморно оттуда их целиком выдирать
А что с руками ? :-)

← →
Anatoly Podgoretsky © (2004-06-09 17:13) [8]

Evgeniy_K (09.06.04 14:45) [4]
Огласите весь мусор

← →
sniknik © (2004-06-09 18:28) [9]

> Это не выход.
а ты пробовал? попробуй может и выйдеш.

← →
Огромное Кулясище (2004-06-09 18:39) [10]

SysUtilsLite.pas... выслал уже

← →
Семен Сорокин © (2004-06-09 18:41) [11]

> SysUtilsLite.pas... выслал уже

...всего 15 Мб

← →
Evgeniy_K (2004-06-10 15:21) [12]

Мне нужно только
IntToStr
FileExists

← →
Mystic © (2004-06-10 15:29) [13]

Val

function FileAge(const FileName: string): Integer;
var
Handle: THandle;
FindData: TWin32FindData;
LocalFileTime: TFileTime;
begin
Handle := FindFirstFile(PChar(FileName), FindData);
if Handle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
Result := True
end
else
Result := False
end;

← →
Игорь Шевченко © (2004-06-10 15:55) [14]

> FileExists

GetFileAttributes

> IntToStr

function MyIntToStr(Value: Integer): string;
var
I: Integer;
Tmp: string;
begin
while Value <> 0 do begin
Tmp := Tmp + Char((Value mod 10) + Ord("0"));
Value := Value div 10;
end;
SetLength(Result, Length(Tmp));
for I:=1 to Length(Tmp) do
Result[Length(Tmp)-I+1] := Tmp[I];
end;

← →
Игорь Шевченко © (2004-06-10 15:59) [15]

Небольшая коррекция:
function MyIntToStr(Value: Integer): string; var I: Integer; Tmp: string; begin if Value = 0 then Result := "0" else begin while Value <> 0 do begin Tmp := Tmp + Char((Value mod 10) + Ord("0")); Value := Value div 10; end; SetLength(Result, Length(Tmp)); for I:=1 to Length(Tmp) do Result[Length(Tmp)-I+1] := Tmp[I]; end; end;

← →
Игорь Шевченко © (2004-06-10 16:00) [16]

Или Str из System.pas :))

← →
Игорь Шевченко © (2004-06-10 16:01) [17]

Или Str из System.pas :))

Порядок другой

Tmp := Char((Value mod 10) + Ord("0")) + Tmp;

Anatoly Podgoretsky © (10.06.04 16:03)

Точно, спасибо :)

function MyIntToStr(Value: Integer): string; begin if Value = 0 then Result := "0" else while Value <> 0 do begin Result := Char((Value mod 10) + Ord("0")) + Result; Value := Value div 10; end; end;

Главное что бы он об этом не забыл

← →
Evgeniy_K (2004-06-12 17:02) [23]

Совсем забыл. Мне ведь еще Now надо. Как-то вроде можно через Биос читать время.

> Совсем забыл. Мне ведь еще Now надо. Как-то вроде можно
> через Биос читать время.

GetSystemTime + SystemTimeToDatetime (последняя очень легкоо выдирается, либо используй TSystemTime - формат даты)

SysUtils Найти похожие ветки