ListView1.Columns.Add; - создать столбец ListView1.Column[0].Caption:='Column1'; - присвоить столбцу с индексом 0 заголовок ListView1.Items.Add; - добавить строку ListView1.Items.Item[0].Caption:='Item1'; - присвоить строке с индексом 0 заголовок
можно ли преобразовать, например, '%systemroot%' в 'C:\windows' в зависимости от расположения windows?
1/немного помучавшись со строками можно. но придётся создать промежуточную страницу, чтоб записать данные системы клиента) 2.Напиши, например, в командной строк set systemroot=ПУТЬ 3.А лучше - в настройках переменных окружения измени. 4/.А ещё лучше - не майся дурью.
Code: var buf:array[0..255] of char; p:integer; s:string; begin s:='%systemroot%\file.txt'; GetWindowsDirectory(buf,255); p:=pos('%systemroot%',s); if p>0 then begin delete(s,p,12); insert(buf,s,p); end; showmessage(s) end;
Здравствуйте! В своей программе использую компонент ListView. Добавляю в него несколько записей: Code: ListView1.Items.Add; ListView1.Items[ListView1.Items.Count - 1].Caption := Edit1.Text; ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(Edit2.Text); ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(Edit3.Text); ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(Edit4.Text); ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(Edit5.Text); ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(Edit6.Text); ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(Edit7.Text); ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(Edit8.Text); ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(Edit9.Text); ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(Edit10.Text); Свойство SortType установил в stText. Проблема такая: при добавлении скажем первой записи (это фамилии), допустим Агзамов ну и остальных субитемов, не важно, она нормально заносится в ListView, затем добавляю еще одну запись, например, Климин вместе с субитемами, так вот она тоже нормально заносится и все субитемы отображаются. Теперь самое главное - добавляю третью запись: напрмер, Гараев, она должна при установленном свойстве SortType быть между этими записями. Так и есть заношу третью запись, но! отображается только первое поле (Item), а все остальные (subItems) не отображаются. Хотелось бы знать почему такое происходит и как обойти это. Самое интересное, что если свойство SortType установить в stNone, то записи добавляются последовательно и не сортируются, но зато все поля отображаются.
Ты добавил его 3-м элементом. Он после сортировки стал вторым, к примеру. И скорее всего нарушилась связь между этим элементом и его вложенными элементами. Попробуй как нибудь сначало создать элемент, заполнить его, а тока потом кидать в ListView
Не понял, почему третьим я добавил? Code: ListView1.Items.Count-1 - это же в конец записи добавляется. И если записей нету, то добавление происходит с первой записи, затем вторая запись записывается, третья и т.д. Т.е. нужно сначала объявить переменную TListItem, а затем наполнить значениями, ну и потом присвоить их компоненту ListView?
Все разобрался сам! Если кому понадобится: сортировка идет по первому символу - в данном случае десятая запись вполне закономерно добавляется после первой, затем одиннадцатая итд до двадцатой, которая добавляется после второй итд. Буду думатьтеперь как обойти эту брешь
Не работает try...expect Код: PHP: procedure TForm1.Button1Click(Sender: TObject); begin try memo1.Lines.Text:=IdHTTP1.Get('http://programmersforum.r/'); except ShowMessage('Ошибка!'); end; end; Должна высветиться ошибка (showmessage) Но высвечивается ошибка при выполнении программы (что в мемо не может быть присвоенно код страницы) (я специально сделал неверный адрес в GET) Я слышал что некоторые версии компонента idHTTP всегда ошибку высвечивают если что-то не так (try не спасает) Вообщем помогите, что делать?
2 RumShun Можно запускать и в Delphi, но при возникновении эксепшена тебя перекинет в отладчик дельфовый, а там ты можешь нажать на F9 для того чтобы продолжилось выполнение проги и тогда эксепшен обработается внутри неё )
Запарился уже с индиевскими компонентами idsmtp с отправкой через ssl. Хоть об стену бейся.. пишет Could not load SSL library. Хотя даже специально скачивал Win32OpenSSL, кидал в папку с прогой libeay32.dll и ssleay32.dll. Может кто то работал с SSL на дельфи, подскажите?)) Или если у кого есть реализация на синапс-компонентах тоже не плохо было бы.. Code: procedure TForm1.Button1Click(Sender: TObject); var SMTP: TIdSMTP; sPort,sHost,sPassword,sUsername, sFromAddress,sFromName,sToAddress,sToName, sSubject,sBoby:string; begin sPort := '587'; sHost := 'smtp.gmail.com'; sUsername := '***'; sPassword := '*****'; sBoby:='****'; sFromAddress:='******@gmail.ru'; sFromName:='1'; sToAddress:='****@mail.ru'; sToName:='1'; sSubject:='666'; SMTP:=TIdSMTP.Create; SMTP.Host:=sHost; SMTP.Port:=strtoint(sPort); SMTP.Username:=sUsername; SMTP.Password:=sPassword; SMTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL1; SMTP.UseTLS:=utUseImplicitTLS; IdMessage.Body.Add(sBoby); IdMessage.From.Address := sFromAddress; IdMessage.From.Name := sFromName; IdMessage.Recipients.Add; IdMessage.Recipients.Items[0].Address := sToAddress; IdMessage.Recipients.Items[0].Name := sToName; IdMessage.Subject := sSubject; SMTP.Connect; SMTP.Send(IdMessage); SMTP.Disconnect; SMTP.Free; end;
http://www.example-code.com/delphi/smtp-ssl-delphi.asp http://www.chilkatsoft.com/refdoc/xChilkatEmail2Ref.html http://www.chilkatsoft.com/download/EmailActiveX.msi
Есть 2 задачи: 1) Есть фаил на хосте (*.txt) (Адрес: http://host.domen/1.txt) а) Открыть этот фаил не сохраняя на компе б) 1 строчка = переменая1 2 строчка = переменая2 3 строчка = переменая3 2) edit1 = email edit2 = pass (От ВК) а) Сделать запрос на vkontakte.ru b) Если ак рабочий то: переменая4 = 1 Если нет то: переменая4 = 0 С меня плюсы....
Почему не работает программа? По заданию программа должна менять минимальные элементы с диагональными в каждой строке квадратной матрицы. Code: var A:array [1..100,1..100] of integer; i,j,M:byte; C,z,Idx1,Idx2:integer; begin repeat writeln('Введите размерность матрицы (M<=100): '); readln(M); if ((M<=1) or (M>100)) then begin writeln('Такая размерность невозможна по условию.'); writeln('Повторите ввод.'); end; until ( (M>1) and (M<=100) ); writeln('Введите матрицу'); for i:=1 to M do for j:=1 to M do begin write('A[',i,',',j,']='); readln(A[i,j]); end; writeln('Вы ввели: '); for i:=1 to M do begin for j:=1 to M do write(A[i,j],' '); writeln; end; for i:=1 to M do begin Idx1:=1; z:=A[i,Idx1]; for j:=2 to M do if A[i,j]<z then begin z:=A[i,j]; Idx1:=j; end; A[i,Idx1]:=A[i,i]; A[i,i]:=z; end; for i:=1 to M do begin Idx2:=1; C:=A[i,Idx2]; for j:=2 to M do if ((A[i,j]>A[i,i]) and (A[i,j]<C)) then begin C:=A[i,j]; Idx2:=j; end; A[i,Idx2]:=A[i,(M+1-i)]; A[i,(M+1-i)]:=C; end; writeln; writeln('Новая матрица:'); begin for i:=1 to M do begin for j:=1 to M do write(A[i,j]:5); writeln; end; readln; end; end.
привет всем, ребята может кто писал или может написать прогу каторая тыкает на кнопки в браузере? мне не для голосований, играю в игру (ботва) и хотелосьбы чтоб прога сама тыкала кнопку найти цель и нападать если цель найденна сайт игры botva.ru
