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

В чем проблема кто подскажет?

В общем пробую обычный элемент TWebBrowser.
На форме Edit(edt1),Button(btn1),WebBrowser(wb1).
На клике по батону стоит

Code:

procedure TForm1.btn1Click(Sender: TObject);
begin
wb1.Navigate(edt1.Text);
end;

Но в итоге какую страницу не напишу постоянно пишет "эта программа не может отобразить эту веб-страницу"
Пробую зайти через IE9 все нормально входит. Подключение через WiFi.
В чем может быть проблема?

 

FireWall?

 

Нет проблема не в этом.

 

Кто подскажет как в свойствах проекта выставить платформу x32 ? А то по умолчанию запускается под x64 на моей системе.

 

К примеру есть 10 чисел.

Code:

1) 85
2) 182
3) 4521
4) 33215
5) 448522
6) 1565466

Необходимо разбить эти числа на 3 составляющие.
1) Из конца берем 2 символа.
2) Из оставшейся строки берем еще 2 символа
3) Оставшееся число от всего

То есть к примеру разбиваем число

Code:

1565466
448522
182
85
7

То должно получиться

Code:

Из 1565466
1) 66
2) 54
3) 156

Из 448522
1) 22
2) 85
3) 44

Из 182
1) 82
2) 1
3) 0 или пустое

Из 85
1) 85
2) 0 или пустое
3) 0 или пустое

Из 7
1) 7
2) 0 или пустое
3) 0 или пустое

При этом начальное число может быть длиной от 1 до 12 символов.

 

Rastamanka используй функцию mod, пример:

Code:

var ext:extended; a1,a2,a3:integer;
begin
ext:= 1565466;
a1:= ext mod 100;
a2:= a1 mod 100;
a3:= a2 mod 100;
begin;

 

Что-то не то вы говорите ) вы мне предлагаете делить остаток на 100.
То есть если есть число 435 то остаток тут 35 и вы предлагаете делить дальше его на 100 )

 

Code:

Program xxx;
Var
 s:string;
Begin
  WriteLn('Введите число: ');
  Read(s);
  
  WriteLn('1.',copy(s,length(s)-1,2));
  WriteLn('2.',copy(s,length(s)-3,2));
  WriteLn('3.',copy(s,1,length(s)-4));
End.

Как обрезать я показал.Если у тебя числа как integer то IntToStr и вперед!

 

помогите написать программу на Delphi!!


Написать программу, которая будет дублировать каждую первую букву слова в строке ,введенной с клавиатуры, и подсчитывать, сколько раз оно встретилось в тексте....

вот наброс што не так сделал???

Code:

var a,b:string;  
k,c:byte; 
 begin 
write('a=');readln; 
 b:='';  
k:=pos('',a); 
 while k<>0 do  
begin
  b:=b+copy(b,k,k+1);  
delete(b,k-2,1); 
 end;  
read('b=');writeln;  

Всем заранее СПАСИБО!!!

 

можно пример не блокируещевося TClientSocket?

 

Всё не так.

 

пожалуста покажи как зделать нужно??

 

Извращенно но работает

 

Подскажите.
Есть форма со свойством borderStyle:=bsNone; и AutoSize:=False;
На ней панель со свойством align:=alTop;
Так же на форме TwebBrowser со свойством align:=alClient;
Так вот надо сделать изменение размеров формы.
Пробовал этот метод http://delphidevelop.ru/publ/2-1-0-207
но к сожалению он не работает т.к. мне кажется что скорее всего TWebBrowser закрывает края формы.
Как реализовать?

 

А там в коментах пример Resize Form есть... он не подходит?

 

cardons, выстави у формы BorderWidth:= 1; это хоть и создаст чуть заметную кайму, зато будет возможность ресайзить форму с borderStyle:= bsNone; по приведенному тобой примеру

 

Не могу нормально прочесть txt файл с русскими буквами.

Code:

readLn(result,s);

Дает вместо русского : — Википедия
Перепробовал более 10 примеров что дает гугл.Не помогло.

 

Действительно обленился думать сам.
Utf8ToAnsi - помогла.

 

Не получается в Database Desktope создать связи(ссылочную целостность) между таблицами. Т.е как бы связь создаю, но сохранить не могу, получаю ошибку - invalid file name.

А связать нужно
vacationers.db(Vacationer_id) с appointment(procedures).db(Vacationer_id)
procedures.db(id) с appointment(procedures).db(Procedurer_id)
service_personnel.db(id) c appointment(procedures).db(Executioner_id)

Т.е таблица санатория с 4-мя таблицами
service_personnel.db - сотрудники
vacationers.db - отдыхающие
procedures.db - процедуры
appointment(procedures).db - назначения процедур(лечебно оздоровительных).

http://rghost.ru/6727031