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

Множество невозможно вывести. Можно лишь проверять наличие элементов в множестве и обрабатывать результаты...

 

парсю ip с сайта...как спарсить строчку до определённого символа???

site:= TstringList.Create;
site.Text:=IdHttp1.Get('http://yoip.ru');
url:=copy(site.Text, pos('Ваш ip адрес:',site.Text)+34, 15);

сама строчка
Ваш ip адрес:<br><span class='ip'>127.0.0.1</span><br><br><br>

 

Держи хорошую функцию, возвращает строку копируя строку от одного символа до второго.

например для твоего случая fwscut(stroka,#39 +'>','</');

function fWSCut(wData, wStart, wEnd: string): string;
var
wOutData, wDelete: string;
begin
wOutData := strpos(Pchar(wData), Pchar(wStart));
Delete(wOutData, 1, Length(wStart));
wDelete := strpos(Pchar(wOutData), Pchar(wEnd));
Delete(wData, 1, Length(wData) - Length(wDelete));
Delete(wOutData, Length(wOutData) - Length(wDelete) + 1, Length(wDelete));
result := wOutData;
end;

 

а как тогда выполнить задание, продемонстрировать 5 операций над множествами??

 

код сюда скинь

 

множества

 

procedure TForm1.BitBtn1Click(Sender: TObject);
type
mnoshestwo = set of 1..255;
var
m1:mnoshestwo;
m2:mnoshestwo;
m3:boolean;
e,r,i:word;
s:string;
begin
m1:=[1..50];
m2:=[25..75];
m3:=m1*m2;

if m3=false then
memo1.Lines.Add('множества не пересекаются')
else
memo1.Lines.Add(inttostr(m3));
end;

end.

я с множествами некогда не работал )

 

это я все знаю. Мне же вывести результаты надо. А как там не написано.

 

может вот так.. не проверял

 

вывести можно только проверяя входит ли значение во множество, иначе никак, примерно так:

Code:

program Project;
{$APPTYPE CONSOLE}
uses SysUtils;
var
  x,y,z: set of Byte;
  i: Integer;
begin
  x:= [1..50];
  y:= [25..70];
  z:= x*y;
  // ну и если z = [], то множества x и y не пересекаются
  WriteLn(z <> []);
  for i:= Low(Byte) to High(Byte) do
    if i in z then begin // если i входит в множество z
      Write(i, ' ');     // вывод значений входящих в множество z
    end;

end.

 

не получается

 

ошибку пишет про ICOUNT

 

обьяви
iCount:integer;

 

компилятор прочал все, но при нажатии на бутон ошибку выдал.
value assignet to 'iCound' never used

 

fushiko, iCount не надо, удалить забыл просто
ps если надо узнать сколько элементов в определенном типе множества, то можно через функции GetTypeData и TypeInfo, которые описаны в юните TypInfo

 

заменяю опеределнные символы из переменной так:

stringreplace(reply,'[','',[rfReplaceAll]

беда что заменяет только если один символ. Подскажите как сделать чтобы заменяло два символа одним.

stringreplace(reply,'[/','',[rfReplaceAll] - так не работает.

 

Сможет кто php код в Delphi перевести?

PHP:

  $nicked = array(); 
   
  foreach (file('./baza.txt') as $line) 
  { 
    list($nick, $pass) = explode(';', trim($line)); 
    $nicked[$nick][] = $pass; 
  } 
   
  $result = array(); 
   
  foreach ($nicked as $nick => $pass) 
  { 
    if (count($pass) == 1) 
    { 
      $result[] = $nick.';'.$pass[0]; 
    } 
  } 
   
  file_put_contents('./ready.txt', implode("\r\n", $result)); 
   

 

Подскажите плиз, возможно ли технически эмулировать перемещение курсора в текущем приложение,ну или в чужом.
Не просто эмулировать клик, а неприрывно эмулировать передвижение мышки по заданой траектории.
именно Эмулировать(!)а не направлять туда курсор и водить им.


Грубо говоря, можно ли обмануть сайт , где есть JS реагирующий на передвижения мыши, но что бы все это дело было в фоне, а не двигал мышкой на самом деле))

Теоретический вопрос

 

Приложение должно производить сцепление двух строк и вывод итоговой строки после нажатия кнопки, всё делаю по пособию, по идее всё должно работать, но работать не хочет . Выдаёт ошибки:

Code:

[Error] Unit1.pas(43): Undeclared identifier: 'Edit3'
[Error] Unit1.pas(43): Undeclared identifier: 'Edit1'
[Error] Unit1.pas(43): Undeclared identifier: 'Edit2'
[Error] Unit1.pas(48): Undeclared identifier: 'Edit1'
[Error] Unit1.pas(49): Undeclared identifier: 'Edit2'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Хотя в пособии ничего про необходимость объявление этих переменных нет, вообщем буду благодарен если опытные люди потратят минуту на нахождение ошибки в коде.

Code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    btn1: TButton;
    btn2: TButton;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.btn2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
Edit3.Text:=Edit1.Text+Edit2.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
end;

end.

 

вот держи

PHP:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text:= Edit1.Text + Edit2.Text;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
end;

end.