Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.11;
Скачать: CL | DM;

Вниз

Мастера !!! ПОМОЩЬ!!!!!!   Найти похожие ветки 

 
Priz_Datiy   (2002-01-26 14:04) [0]

Прошу очень прошу переделать ниже приведенный код в функцию
те для многократного вызова...

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Reg: TRegistry;
ts: TStrings;
i: integer;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey("\RemoteAccess\Addresses", False);
ts:=TStringList.Create;
Reg.GetValueNames(ts);
Memo1.Clear;
for i := 0 to ts.Count -1 do
Memo1.Lines.Add(ts.Strings[i]);
Reg.CloseKey;
Reg.Destroy;
end;

я делаю так:

function Get: string;
var
Reg: TRegistry;
ts: TStrings;
i: integer;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey("\RemoteAccess\Addresses", False);
ts:=TStringList.Create;
Reg.GetValueNames(ts);
Memo1.Clear;
for i := 0 to ts.Count -1 do
Memo1.Lines.Add(ts.Strings[i]);
Reg.CloseKey;
Reg.Destroy;
end;

но тут помойму мема всю малину портит


 
Вадим ©   (2002-01-26 14:36) [1]

Ну, типа, убери memo, тогда результата будет в ts


 
Pat ©   (2002-01-26 15:17) [2]

А что переделывать? Где надо, просто вызывай процедуру
Form1.SpeedButton1Click(Sender);



 
Anatoly Podgoretsky ©   (2002-01-26 19:41) [3]

А что должна возвращать функция?



Страницы: 1 вся ветка

Текущий архив: 2002.02.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
14-32346
andey
2001-12-20 19:35
2002.02.11
куб. корень в exel


3-32161
Макс
2002-01-16 16:45
2002.02.11
Проверка данных на программе клиенте


1-32236
Rahim & Vad
2002-01-27 16:58
2002.02.11
Отчаенье! Проблеммы с выводом на широкий формат! ПоМОООО гитееее


4-32369
ctapik-net
2001-12-13 21:08
2002.02.11
как узнать дату установки windows?


1-32241
MAN-IN-RED
2002-01-27 23:11
2002.02.11
Вопрос есть! Попытка номер 2.