08.11.2008, 11:24
|
|
Новичок
Регистрация: 03.11.2008
Сообщений: 11
С нами:
9220242
Репутация:
1
|
|
Подскажите как сделать чтобы при нажатии на кнопку, произошло добавление строчки в файл hosts??
|
|
|
08.11.2008, 18:11
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
С нами:
9655526
Репутация:
1821
|
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
FFILE:TstringList;
begin
FFILE:=TstringList.Create;
FFILE.LoadFromFile('C:\hosts');
FFILE.Add('Добавляем строку');
FFILE.SaveToFile('C:\hosts');
end;
Способов много. |
|
|
|
08.11.2008, 21:44
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
С нами:
9526747
Репутация:
272
|
|
Добрый вечер, хотелось пояснить, ну никак понять не могу, если функция/процедура без параметров, то вызываеться очень просто, пишеться название, а если с параметрами, вот как эта программа например:
Код:
Код:
program test;
var M, N : Word;
procedure Exchenge(var X,Y : Word);
var z : Word;
begin
z := X;
X :=Y;
Y := Z;
end;
begin
M := 5; N := 6;
Exchenge(M, N); {оператор вызова процедуры}
writeln(M,N);
end.
Подпрограмма, эт же отдельное "тело" программы? Тогда почему при вызове данной процедуры используються переменные основной программы, а не подпрограммы? Ну ничего не понимаю, поясните пожалуйста, выходит, что процедура вообще не выполняеться? Или как... |
|
|
|
08.11.2008, 21:44
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
С нами:
9526747
Репутация:
272
|
|
Добрый вечер, хотелось пояснить, ну никак понять не могу, если функция/процедура без параметров, то вызываеться очень просто, пишеться название, а если с параметрами, вот как эта программа например:
Код:
Код:
program test;
var M, N : Word;
procedure Exchenge(var X,Y : Word);
var z : Word;
begin
z := X;
X :=Y;
Y := Z;
end;
begin
M := 5; N := 6;
Exchenge(M, N); {оператор вызова процедуры}
writeln(M,N);
end.
Подпрограмма, эт же отдельное "тело" программы? Тогда почему при вызове данной процедуры используються переменные основной программы, а не подпрограммы? Ну ничего не понимаю, поясните пожалуйста, выходит, что процедура вообще не выполняеться? Или как... |
|
|
|
08.11.2008, 21:49
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
С нами:
9416345
Репутация:
165
|
|
Есть понятия глобальные и локальные переменные. Если ты объявишь переменную как глобальную то в подпрограмме будет она использоваться как глобальная, а если в подпрограмме ты ее снова определишь то она станет локальной и не повлияет на глобальную
Думаю понятно объяснил..
|
|
|
|
08.11.2008, 22:07
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
С нами:
9526747
Репутация:
272
|
|
cremator (c)
+
|
|
|
|
08.11.2008, 23:53
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
С нами:
9526747
Репутация:
272
|
|
Еще вопрос, вот исходник из учебника, не пойму, причем тут a и b? read(a,b);
Line(a,b);
Код:
program editor;
var x : integer;
procedure Line (ch:char; ln:integer);
var symbol : integer;
begin
write('{');
for symbol:=1 to ln do
write('ch');
writeln('}');
end;
begin
read(a,b);
Line(a,b);
end.
|
|
|
|
09.11.2008, 00:09
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
С нами:
10139366
Репутация:
1502
|
|
Сообщение от Andres
Еще вопрос, вот исходник из учебника, не пойму, причем тут a и b? read(a,b);
Line(a,b);
ну да, в коде явно не хватает объявления var a:char; b: integer;
add - да и, видимо, тут вместо write('ch'); должно быть write(ch); чтобы что-то полезное было.
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
09.11.2008, 00:46
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
С нами:
9526747
Репутация:
272
|
|
Сообщение от desTiny
ну да, в коде явно не хватает объявления var a:char; b: integer;
Объявления переменных этих в программе или подпрограмме?
|
|
|
|
09.11.2008, 00:17
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
С нами:
9416345
Репутация:
165
|
|
Выложи весь код. Эти переменные наверно глобальные
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
