IniFiles nouses

← →
savyhinst © (2008-08-30 19:08) [0]

Здраствуйте.
Подскажите пожалуйста, где взять IniFiles.pas, у которых в uses ничего нет (или есть что-нибудь, но не специфичское)
Спасибо за внимание!

← →
@!!ex © (2008-08-30 19:14) [1]

Написать..

← →
@!!ex © (2008-08-30 19:15) [2]

Что значит "не специфическое"??

← →
savyhinst © (2008-08-30 19:16) [3]

значит, одно из
types, classes

← →
Anatoly Podgoretsky © (2008-08-30 19:31) [4]

> savyhinst (30.08.2008 19:08:00) [0]

Таких нет.

← →
Сергей М. © (2008-08-30 19:36) [5]

> где взять IniFiles.pas, у которых в uses ничего нет
> или есть что-нибудь, но не специфичское

Неужели лопата ?

В составе урожая ее как бы нет, и в то же время без нее никак и она совсем не специфическая - лопата она и есть лопата..

← →
hinst (2008-08-30 20:13) [6]

не, я не понял, причём тут лопата? мне инифайлс нужны срочно...

← →
ketmar © (2008-08-30 20:19) [7]

>[6] hinst (2008-08-30 20:13:00)
>мне инифайлс нужны срочно…
сумма не озвучена.

---
All Your Base Are Belong to Us

← →
Узурап Мамуматкулович (2008-08-30 20:22) [8]

> сумма не озвучена.

пицот

← →
VirEx © (2008-08-30 20:22) [9]

var INISection,INIFileName:string; ... function TFWGroup.INIDeleteString(Ident: string): boolean; begin result := WritePrivateProfileString(PChar(INISection), PChar(Ident), nil, PChar(INIFileName)); end; function TFWGroup.INIReadBoolean(Ident: string): Boolean; begin result := false; try result := Boolean(INIReadInteger(Ident)); except exit; end; end; function TFWGroup.INIReadInteger(Ident: string): Integer; begin result := 0; try result := StrToInt(INIReadString(Ident)); except exit; end; end; function TFWGroup.INIReadString(Ident: string): string; var Buffer: array[0..2047] of Char; begin result := ""; SetString(result, Buffer, GetPrivateProfileString(PChar(INISection), PChar(Ident), PChar(nil), Buffer, SizeOf(Buffer), PChar(INIFileName))); end; function TFWGroup.INIWriteString(Ident, Value: string): boolean; begin result := false; if Value <> "" then //сохраняем только то что имеется, чтобы сэкономить процессорное время и место на диске :) result := WritePrivateProfileString(PChar(INISection), PChar(Ident), PChar(Value), PChar(INIFileName)); end; function TFWGroup.INIWriteBoolean(Ident: string; Value: boolean): boolean; begin result := INIWriteString(Ident, IntToStr(Integer(Value))); end; function TFWGroup.INIWriteInteger(Ident: string; Value: integer): boolean; begin result := INIWriteString(Ident, IntToStr(Value)); end; ... //использование INIFileName := FileName; INISection := "Options"; INIWriteInteger("Count", Count); INISection := "OptionsExt"; INIWriteBoolean("bool", True);

можешь оформить в виде компонента

← →
VirEx © (2008-08-30 20:29) [10]

проще было зайти на google.ru/codesearch

← →
Anatoly Podgoretsky © (2008-08-30 20:30) [11]

> hinst (30.08.2008 20:13:06) [6]

В модуле Лопата нет никаких лишних uses

← →
Anatoly Podgoretsky © (2008-08-30 20:31) [12]

> VirEx (30.08.2008 20:22:09) [9]

а где uses иначе как мы определим есть ли лишнии?

← →
VirEx © (2008-08-30 20:36) [13]

> а где uses иначе как мы определим есть ли лишнии?

uses Windows, SysUtils {для StrToInt и др.};

не всё лишнее стер

← →
hinst (2008-08-30 20:45) [14]

спасибо.попробую

← →
Anatoly Podgoretsky © (2008-08-30 20:52) [15]

> VirEx (30.08.2008 20:36:13) [13]

А вот в IniFiles - uses SysUtils, Classes;

← →
VirEx © (2008-08-30 20:54) [16]

> А вот в IniFiles - uses SysUtils, Classes;

ах они такие :)

← →
Сергей М. © (2008-08-30 21:20) [17]

> VirEx © (30.08.08 20:54) [16]
>
>

И чего ради, спрашивается, ты пыжился в [9], если так или иначе на горизонте лопата ?

← →
Сергей М. © (2008-08-30 21:22) [18]

> мне инифайлс нужны срочно

Разрешите Ваш приказ исполнить бегом ?

← →
hinst (2008-08-30 21:25) [19]

в том и дело, что в инифайлс используется ещё RTLConsts

← →
Tornado (2008-08-30 21:27) [20]

Узурап Мамуматкулович (30.08.08 20:22) [8]

а ты чегото могешь?

> в том и дело, что в инифайлс используется ещё RTLConsts

И что ?

Изволите срочно оные ликвидировать ?

← →
Узурап Мамуматкулович (2008-08-30 21:33) [22]

> а ты чегото могешь?

это смотря чего пицот.

> И что ?
>
> Изволите срочно оные ликвидировать ?

Букав много

> Букав много

В вирях, троянах и прочей непотребности их действительно многовато

> Сергей М. (30.08.2008 21:58:24) [24]

Дня непотребности ни размеры, ни каличиства букав, помехой не являются.

> Anatoly Podgoretsky © (30.08.08 22:16) [25]

Ну как же так ?!

Для любой мало-мальски стоящей внимания "непотребности" букаф, которые при сборке "непотребопроекта" попадут в его исп.модуль из файла rtlconsts.pas, действительно излишнедохрена).. Вот бы автору покоцать их, букфы енти, чтобы непотребность свою не шибко светить в случчиво !)

> [17] Сергей М. © (30.08.08 21:20)
>
> > VirEx © (30.08.08 20:54) [16]
> >
> >
>
>
> И чего ради, спрашивается, ты пыжился в [9], если так или
> иначе на горизонте лопата ?

твои силы берёг

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