[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

я предложил же, даже, целых 2 варианта

1-ый yandex.ru запрос: delphi получить номер жёсткого диска
2-ой yandex.ru запрос: скачать upx

 

Люди помогите!нужна программа на delphi,сниффер,который через каждые 15 минут переходил бы на определённый сайт.в delphi совсем ничего непонимаю,вся надежда на вас=(((
p/s забыл,кто может помоч постучите в аську 47877239

 

начал изучать с++, компилирую в Code:Bloks 8.02
в книге пример:

#include <iostream.h>
int main()
{
for (int i = 32; i<128; i++);
cout << (char) i;
return 0;
}

при компиляции выдает:


C:\Program Files\CodeBlocks\MinGW\bin\..\lib\gcc\mingw32\3.4.5\..\..\..\..\include\c++\3.4.5\backward\backward_warning.h|32|warning: #warning This file includes at least one deprecated or antiquated header. Please consider using one of the 32 headers found in section 17.4.1.2 of the C++ standard. Examples include substituting the <X> header for the <X.h> header for C++ includes, or <iostream> instead of the deprecated header <iostream.h>. To disable this warning use -Wno-deprecated.|

.cpp||In function `int main()':|

.cpp|6|error: name lookup of `i' changed for new ISO `for' scoping|

.cpp|5|error: using obsolete binding at `i'|

||=== Build finished: 2 errors, 1 warnings ===|

я так понял что это связано с какимито новвоведениями в компиляторе, в вижуал с++ экспресс 2008 тож самое, по книге обучение на вижуал с++ 6.0

 

iffan, разделом ошибся.
Убери в подключении хедера ".h", должен пропасть первый варнинг.

Code:

 for (int i = 32; i<128; i++)
cout << (char) i; 

пробуй так.
и добавь

Code:

#include <cstdlib>

на всякий случай

 

немогу понять почему вылетает ошибка нажатии на элемент ListBox'a

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button2: TButton;
    ListBox1: TListBox;
    procedure Button2Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a: integer;
  putmas: array[1..5] of string;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Items.Add('ererwe');
ListBox1.Items.Add('укукуцк');
a:=0;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
putmas[a]:= Listbox1.Items[ListBox1.ItemIndex];
showmessage(putmas[a]);
end;

end.

 

criz благодарю за направление, помогло.
...хмм действительно не втот раздел попал...

 

Что за ошибка? Компилить исходник сейчас возможности нет..

 

Access violation at address 00455448 in module'Project1.exe'. Read of address 02A21D90

 

Насколько я понял, ты пытаешься писать в нулевую ячейку массива, а массив ты описал с первой...

 

переменную "а" объявить надо не глобально, а в теле функции.

procedure TForm1.ListBox1Click(Sender: TObject);
vaк a:integer;
begin
a:=0;
putmas[a]:= Listbox1.Items[ListBox1.ItemIndex];
showmessage(putmas[a]);
end;

 

dinar_007, W!z@rD спасибо

dinar_007 АА точно, совсем запарился)
W!z@rD работает и с глобальной

 

как сделать поиск по сайту через Делфи? интересует поиск текста на 1 странице

 

html парсер в delphi

 

Мешалка текстовиков

Помогите сделать мешалку текста чтобы открыть блокнот с готовым текстом перемешать и сохранить ещё надо чтобы мешалось в случайном порядке например что то типо такого

имеем так

123456
123457
123458
123459

получаем так

123459
123457
123458
123456

желательно не исходник а саму программу (если исходник то плз на дельфи)

 

Гуглил но всётаки не нашол как представить все значения массива одной строковой переменной, не подскажите эту функцию?

 

Подскажите пожалуйста,как с помощью таймера запустить функцию WebConnection,чтоб она выполнялась каждый определённый промежуток времени,указанный в таймере?=)

 

Code:

  Timer1.Interval = 1000;
  Timer1.OnTimer := твоя_функция;
  Timer1.Enabled := true;

 

Здесь есть, ищи!! http://megalib.com/books/858/KDOffline_8.htm

 

вот какая ошибка появляется:
[Error] Unit1.pas(29): ':=' expected but '=' found
[Error] Unit1.pas(30): Undeclared identifier: 'WebConnection'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

 

Code:

  Timer1.Interval := 1000;
  Timer1.OnTimer := твоя_функция;
  Timer1.Enabled := true;