Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> help with code please 
:(
    Опции темы
muratboy31
  Дата 14.1.2010, 21:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
it loads the page but dont stop the blocked sites !!!  and also is there any way that i can make this code shorter  ?


Это сообщение отредактировал(а) muratboy31 - 18.2.2010, 09:51
PM MAIL   Вверх
Демо
Дата 14.1.2010, 22:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 7
Всего: 50
У меня де жа вю?


--------------------
    
PM MAIL ICQ Skype   Вверх
muratboy31
  Дата 14.1.2010, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i attached the file, it gives error when i press the enter key in combobox !!!

Это сообщение отредактировал(а) muratboy31 - 15.1.2010, 10:59
PM MAIL   Вверх
neweraser
Дата 14.1.2010, 22:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6
Цитата

Required package 'Embedded_D7' not found

что это за пакет? программа не запускается


--------------------
Кто ищет, тот всегда найдет.
PM MAIL ICQ Skype   Вверх
muratboy31
Дата 14.1.2010, 22:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
there is something wrong but i cant find it...
try this one please and if it still wants the same just remove the component from settings

Это сообщение отредактировал(а) muratboy31 - 15.1.2010, 12:14
PM MAIL   Вверх
neweraser
Дата 14.1.2010, 23:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6
Цитата

if (Pos(BlockedUsers[i],aranan)>0) and (Block = 1) then

c этим не совсем понятно, но xxx блокирует, ошибку не выдает, код уменьшил на 4 строчки  smile 
вот эта строчка не понятно зачем
 
Цитата

//GetActiveEWB.Navigate(URL);

из-за нее ошибку выдает
вот. чем смог тем помог smile

Код

procedure TForm1.IEAddress1KeyPress(Sender: TObject; var Key: Char);
var
  aranan: AnsiString;
  BlockedUsers: TStringList;
  i: Integer;
  ini1 : TINIFile;
  Block : integer;
  URL:string;
  Num:integer;
begin
  if key = #13 then
  begin
    ini1 := TINIFile.Create(ExtractFilePath(Application.ExeName)+'Ayar.INI');
    Block:= ini1.Readinteger('Blocker','Block',0);
    aranan:=IEAddress1.Text;
    Form1.Text:=aranan;
    BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    for i:= 0 to BlockedUsers.Count - 1 do
    begin
      if (Pos(BlockedUsers[i],aranan)>0) and (Block = 1) then
      begin
        ShowMessage('No View');
        exit;
      end else
      begin
        URL:= IEAddress1.Text;
        if URL <> '' then
         begin
         //GetActiveEWB.Navigate(URL);
           Num:=0;
           while Num < IEAddress1.Items.Count do
             if IEAddress1.Text = IEAddress1.Items[Num] then
             abort
             else
             inc(Num);
             IEAddress1.Items.Add(URL);
         end;
      end;
      end
  finally
    BlockedUsers.Free;
   end;
  end;
end



--------------------
Кто ищет, тот всегда найдет.
PM MAIL ICQ Skype   Вверх
muratboy31
Дата 14.1.2010, 23:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
thanks but after 1 time blocking the site it doesnt block anymore !!!  u get only 1 time No View window and if u press enter again then it doesnt block anymore !!!  and also it must load the web page if it is not blocked so why do i have to remove  //GetActiveEWB.Navigate(URL);



Это сообщение отредактировал(а) muratboy31 - 14.1.2010, 23:48
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 10:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i cant see what is wrong with the code but it only works 1 time, if i press enter key for secod time it doesnt block anymore !!!   smile 



Это сообщение отредактировал(а) muratboy31 - 18.2.2010, 09:52
PM MAIL   Вверх
artsb
Дата 15.1.2010, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
muratboy31, try this:
Код

procedure TForm1.IEAddress1KeyPress(Sender: TObject; var Key: Char);
var
aranan:AnsiString;
BlockedUsers: TStringList;
i: Integer;
ini1 : TINIFile;
Block : integer;
URL:string;
Num:integer;
begin
  if key = #13 then begin
    ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'Ayar.INI ');
    Block:= ini1.Readinteger('Blocker','Block',0);
    aranan:=IEAddress1.Text;
    Form1.Text:=aranan;
    BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    for i := 0 to BlockedUsers.Count-1 do
    begin
       if (Pos(BlockedUsers[i],aranan)>0) and (Block=1) then
       begin
       ShowMessage('No View');
       exit;
       end
    end;
    URL:=IEAddress1.Text;
    if URL<>'' then
    begin
         WebBrowser1.Navigate(URL);
         Num:=0;
         while Num<IEAddress1.Items.Count do
         begin
             if IEAddress1.Text = IEAddress1.Items[Num] then
             begin
                abort;
             end else
             begin
                inc(Num);
             end;
         end;
         if Num = IEAddress1.Items.Count then
             IEAddress1.Items.Add(URL);
    end;
  finally
    BlockedUsers.Free;
   end;
  end;
end;


Это сообщение отредактировал(а) artsb - 15.1.2010, 11:42


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 11:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
thanks you sooooooo much artsb  smile 
i dont how to thank 
just perfect  smile 


just a small question why it doesnt work with onclick event and on select!!!


Это сообщение отредактировал(а) muratboy31 - 18.2.2010, 09:52
PM MAIL   Вверх
artsb
Дата 15.1.2010, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
Цитата(muratboy31 @  15.1.2010,  11:45 Найти цитируемый пост)
why it doesnt work with onclick event !!!

Use CloseUp event:
Код

procedure TForm1.IEAddress1CloseUp(Sender: TObject);
begin
 // ...
end;


And for comparison insensitive, you can use:
Код

if (Pos(LowerCase(BlockedUsers[i]),LowerCase(aranan))>0) and (Block=1) then


Это сообщение отредактировал(а) artsb - 15.1.2010, 11:56


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
this code didnt work oncloseup but it worked onselect... would it cause any problem if i only use it onselect ???

Код

procedure TForm1.IEAddress1CloseUp(Sender: TObject);
var
aranan:AnsiString;
BlockedUsers: TStringList;
i: Integer;
ini1 : TINIFile;
Block : integer;
URL:string;
Num:integer;
begin
    ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'Ayar.INI ');
    Block:= ini1.Readinteger('Blocker','Block',0);
    aranan:=IEAddress1.Text;
    Form1.Text:=aranan;
    BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    for i := 0 to BlockedUsers.Count-1 do
    begin
       if (Pos(LowerCase(BlockedUsers[i]),LowerCase(aranan))>0) and (Block=1) then
       begin
       ShowMessage('No View');
       exit;
       end
    end;
      URL:=IEAddress1.Text;
         if URL<>'' then
         begin
         GetActiveEWB.Go(URL);
         Num:=0;
         while Num<IEAddress1.Items.Count do
         begin
             if IEAddress1.Text = IEAddress1.Items[Num] then
             begin
             abort;
             end else
             begin
             inc(Num);
             end;
             end;
             if Num = IEAddress1.Items.Count then
              IEAddress1.Items.Add(URL);
         end;
  finally
    BlockedUsers.Free;
   end;
end;
PM MAIL   Вверх
artsb
Дата 15.1.2010, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
Цитата(muratboy31 @  15.1.2010,  12:05 Найти цитируемый пост)
this code didnt work oncloseup but it worked onselect...

Oh... Sory. Of course.  smile 

Цитата(muratboy31 @  15.1.2010,  12:05 Найти цитируемый пост)
would it cause any problem if i only use it onselect

IMHO no.


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
thanks arbs  smile 
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 14:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
why is it doing that,  if i type 'google' it blocks but if i type 'gOogle' or 'Google' then it doesnt block !!!!
PM MAIL   Вверх
artsb
Дата 15.1.2010, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
Цитата(muratboy31 @  15.1.2010,  14:38 Найти цитируемый пост)
why is it doing that,  if i type 'google' it blocks but if i type 'gOogle' or 'Google' then it doesnt block !!!! 


Цитата(artsb @  15.1.2010,  11:54 Найти цитируемый пост)
And for comparison insensitive, you can use:
Код

if (Pos(LowerCase(BlockedUsers[i]),LowerCase(aranan))>0) and (Block=1) then




--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 14:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
sorry for bugging u tooo much but if i start typing to combobox and if i start with 'g' then it autocomplites the word to google and blocks it... as u can c in the pictures step by step;

step 1:
user posted image

step 2:
user posted image

step 3:
user posted image
PM MAIL   Вверх
artsb
Дата 15.1.2010, 15:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
muratboy31, try this:
Код

flag: boolean;
//...
procedure TForm1.IEAddress1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = VK_RETURN then
 begin
  flag := false;
 end
 else
 begin
  flag := true;
 end;
 IEAddress1Select(IEAddress1);
end;

procedure TForm1.IEAddress1Select(Sender: TObject);
var
aranan:AnsiString;
BlockedUsers: TStringList;
i: Integer;
ini1 : TINIFile;
Block : integer;
URL:string;
Num:integer;
begin
    ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'Ayar.INI ');
    Block:= ini1.Readinteger('Blocker','Block',0);
    aranan:=IEAddress1.Text;
    Form1.Text:=aranan;
    BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    for i := 0 to BlockedUsers.Count-1 do
    begin
       if (Pos(LowerCase(BlockedUsers[i]),LowerCase(aranan))>0) and (Block=1) then
       begin
       ShowMessage('No View');
       IEAddress1.Text := '';
       exit;
       end
    end;
    if flag then
    begin
     flag := false;
     exit;
    end;
      URL:=IEAddress1.Text;
         if URL<>'' then
         begin
         WebBrowser1.Navigate(URL);
         Num:=0;
         while Num<IEAddress1.Items.Count do
         begin
             if IEAddress1.Text = IEAddress1.Items[Num] then
             begin
             abort;
             end else
             begin
             inc(Num);
             end;
             end;
             if Num = IEAddress1.Items.Count then
              IEAddress1.Items.Add(URL);
         end;
  finally
    BlockedUsers.Free;
   end;
end;



--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 15:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
it is the same i get the same error and i used it like that;

Код

var
    flag: boolean;

implementation

uses

{$R *.dfm}


Код

procedure TForm1.IEAddress1KeyPress(Sender: TObject; var Key: Char);
var
aranan:AnsiString;
BlockedUsers: TStringList;
i: Integer;
ini1 : TINIFile;
Block : integer;
URL:string;
Num:integer;
begin
    ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'Ayar.INI ');
    Block:= ini1.Readinteger('Blocker','Block',0);
    aranan:=IEAddress1.Text;
    Form1.Text:=aranan;
    BlockedUsers := TStringList.Create;
  try
    BlockedUsers.LoadFromFile('users.txt');
    for i := 0 to BlockedUsers.Count-1 do
    begin
       if (Pos(LowerCase(BlockedUsers[i]),LowerCase(aranan))>0) and (Block=1) then
       begin
       ShowMessage('No View');
       IEAddress1.Text := '';
       exit;
       end
    end;
    if flag then
    begin
     flag := false;
     exit;
    end;
      URL:=IEAddress1.Text;
         if URL<>'' then
         begin
         GetActiveEWB.Go(URL);
         Num:=0;
         while Num<IEAddress1.Items.Count do
         begin
             if IEAddress1.Text = IEAddress1.Items[Num] then
             begin
             abort;
             end else
             begin
             inc(Num);
             end;
             end;
             if Num = IEAddress1.Items.Count then
              IEAddress1.Items.Add(URL);
         end;
  finally
    BlockedUsers.Free;
   end;
end;



Код

procedure TForm1.IEAddress1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = VK_RETURN then
 begin
  flag := false;
 end
 else
 begin
  flag := true;
 end;
 IEAddress1Select(IEAddress1);
end;
PM MAIL   Вверх
artsb
Дата 15.1.2010, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
Цитата(muratboy31 @  15.1.2010,  15:31 Найти цитируемый пост)
procedure TForm1.IEAddress1KeyPress(Sender: TObject; var Key: Char);

must be:
Код

procedure TForm1.IEAddress1Select(Sender: TObject);

or no?


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 15:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i tried it also but i think it has nothing to do with select, i think it is a problem of keypress because i only get this error when i press 'g' in combobox !!! but i tired to disable auto complite from combobox properties and it worked... but i need autocomplite with it so i dont know how to do it !!!
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
found the solution  smile  for now

disable autocomplete from properties..

Код

var
  LastKey: Word;

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  LastKey := Key;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  Srch: string;
  ix: Integer;
begin
  Srch := combobox1.Text;
  if LastKey = $08 then
  begin
    LastKey := 0;
    Exit;
  end;
  LastKey := 0;
  ix := combobox1.Perform(CB_FINDSTRING, - 1, Longint(PChar(Srch)));
  if ix > CB_ERR then
  begin
    combobox1.ItemIndex := ix;
    combobox1.SelStart  := Length(Srch);
    combobox1.SelLength := (Length(combobox1.Text) - Length(Srch));
  end;
end;


how can i auto append combobox ???

Это сообщение отредактировал(а) muratboy31 - 15.1.2010, 16:47
PM MAIL   Вверх
artsb
Дата 15.1.2010, 17:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
Example:
Код

procedure TForm1.IEAddress1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
  if IEAddress1.Items.IndexOf(IEAddress1.Text) = -1 then
   IEAddress1.Items.Add(IEAddress1.Text);
end;



--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 17:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i think i couldnt explain what i want to do... i want to open the combobox list starting with the same latter like that ...

user posted image
PM MAIL   Вверх
artsb
Дата 15.1.2010, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
Код

IEAddress1.DroppedDown := true;



--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
thanks for tip artsb but it is not doing what i want...
i want internet explorer style autocomplite with dropdown... i hope you understand what i mean !!!
PM MAIL   Вверх
artsb
Дата 15.1.2010, 18:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
Now, i'm understand. But i don't know how to do it. Sorry...

Это сообщение отредактировал(а) artsb - 15.1.2010, 18:16


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 19:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i found something but i get error Undeclared Identifier: 'StringMatches'   why is that ???

Код

procedure TForm1.IEAddress1Change(Sender: TObject);
var
s:Integer;
tmpstr:string;
suggestions: tstringlist ;
begin
IEAddress1.AutoComplete:=false;
tmpstr:=IEAddress1.Text;
IEAddress1.Items.Clear;
for s:=0 to suggestions.Count - 1 do
  if StringMatches(suggestions[s],IEAddress1.Text+'*') then
    IEAddress1.Items.Add(suggestions[s]);
IEAddress1.DroppedDown:=(IEAddress1.Items.Count<>0) and (Length(IEAddress1.Text)<>0);
IEAddress1.Text:=tmpstr;
IEAddress1.SelStart:=Length(IEAddress1.Text)
end;


Это сообщение отредактировал(а) muratboy31 - 15.1.2010, 19:30
PM MAIL   Вверх
artsb
Дата 15.1.2010, 20:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
Цитата(muratboy31 @  15.1.2010,  19:24 Найти цитируемый пост)
'StringMatches'   why is that ???

It's from Java.

Maybe:
Код

procedure TForm1.IEAddress1Change(Sender: TObject);
var
s:Integer;
tmpstr:string;
suggestions: tstringlist ;
begin
IEAddress1.AutoComplete:=false;
tmpstr:=IEAddress1.Text;
IEAddress1.Items.Clear;

for s:=0 to suggestions.Count - 1 do
  if Pos(suggestions[s], IEAddress1.Text) = 1 then
    IEAddress1.Items.Add(suggestions[s]);

IEAddress1.DroppedDown:=(IEAddress1.Items.Count<>0) and (Length(IEAddress1.Text)<>0);
IEAddress1.Text:=tmpstr;
IEAddress1.SelStart:=Length(IEAddress1.Text)
end;



--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 21:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
it gives error and i think it is something here

Код

for s:=0 to suggestions.Count - 1 do
PM MAIL   Вверх
artsb
Дата 15.1.2010, 21:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
What error?

You don't initializing suggestions. Why?


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 22:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
user posted image
PM MAIL   Вверх
artsb
Дата 15.1.2010, 23:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
muratboy31, look:
user posted image


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 15.1.2010, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
so why do you think i get the the error ???
PM MAIL   Вверх
bems
Дата 16.1.2010, 00:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
It is because variable "suggestions" not initialized and contains garbage.
You must create object first


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Данкинг
Дата 16.1.2010, 01:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Код

suggestions:=tstringlist.create;

? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
muratboy31
Дата 16.1.2010, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
i tried it like that but it deletes all the links in the combobox !!!

Код

procedure TForm1.IEAddress1Change(Sender: TObject);
var
s:Integer;
tmpstr:string;
suggestions: tstringlist ;
begin
suggestions:=tstringlist.create;
IEAddress1.AutoComplete:=false;
tmpstr:=IEAddress1.Text;
IEAddress1.Items.Clear;

for s:=0 to suggestions.Count - 1 do
  if Pos(suggestions[s], IEAddress1.Text) = 1 then
    IEAddress1.Items.Add(suggestions[s]);

IEAddress1.DroppedDown:=(IEAddress1.Items.Count<>0) and (Length(IEAddress1.Text)<>0);
IEAddress1.Text:=tmpstr;
IEAddress1.SelStart:=Length(IEAddress1.Text)
end;


Это сообщение отредактировал(а) muratboy31 - 16.1.2010, 11:39
PM MAIL   Вверх
artsb
Дата 16.1.2010, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
muratboy31, your object suggestions is empty and suggestions.Count = 0. So:
Код

for s:=0 to suggestions.Count - 1 do // Count = 0
  if Pos(suggestions[s], IEAddress1.Text) = 1 then // don't work
    IEAddress1.Items.Add(suggestions[s]); // don't work

You need load or add strings into suggestions.Strings first.

Это сообщение отредактировал(а) artsb - 16.1.2010, 12:44


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 16.1.2010, 13:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
ok i also load it but still it sgows combobox empty !!!

Код

procedure TForm1.IEAddress1Change(Sender: TObject);
var
s:Integer;
tmpstr:string;
suggestions: tstringlist ;
begin
suggestions:=tstringlist.create;
suggestions.LoadFromFile('urls2.txt');
IEAddress1.AutoComplete:=false;
tmpstr:=IEAddress1.Text;
IEAddress1.Items.Clear;

for s:=0 to suggestions.Count - 1 do
  if Pos(suggestions[s], IEAddress1.Text) = 1 then
    IEAddress1.Items.Add(suggestions[s]);

IEAddress1.DroppedDown:=(IEAddress1.Items.Count<>0) and (Length(IEAddress1.Text)<>0);
IEAddress1.Text:=tmpstr;
IEAddress1.SelStart:=Length(IEAddress1.Text)
end;


Это сообщение отредактировал(а) muratboy31 - 16.1.2010, 13:33
PM MAIL   Вверх
artsb
Дата 16.1.2010, 14:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
Attach project please.


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
muratboy31
Дата 16.1.2010, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет
here is the project... it drops list but selects a site automaticly and loads it !!

Это сообщение отредактировал(а) muratboy31 - 19.1.2010, 17:15
PM MAIL   Вверх
artsb
Дата 16.1.2010, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 1
Всего: 64
The project should be greatly alter. But I don't have so much time. Sorry...


--------------------
Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.
PM MAIL   Вверх
Страницы: (3) [Все] 1 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0944 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.