Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

Мастера !!! ПОМОЩЬ!!!!!! 


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]

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
7-32353           Beginer               2001-10-29 14:37  2002.02.11  
Как пользоваться вторым экраном.


1-32187           novomod               2002-01-28 23:36  2002.02.11  
Подскажите мастера, как проиграть wav,mp3 при нажатии


3-32133           Oleg Fomicheff        2002-01-14 20:59  2002.02.11  
Какая размерность у DBListBox?


14-32345          vasco                 2001-12-16 10:55  2002.02.11  
Что это - старость подкралась незаметно?


6-32300           Sectoid               2001-11-21 13:15  2002.02.11  
У меня есть исходный код HTML ки. Как мне его глянуть в нормальном виде (как страничку, а не как код)???