Адрес к Help в Delphi

[-=TurboRufus=-]

Никак не могу найти способ, чтобы в свойствах проекта прописать относительный адрес к файлу хэлпа.
Нужно, чтобы при любом расположении программы, файл, находящийся в папке Help, которая располагается в том же каталоге, что и программа, открывался без проблем.
Прописывать в коде через ExtractFileDir(Application.ExeName) + '\Help\HelpFile.hlp'; тоже не получается. Есть каки-нибудь идеи?

---

Всем привет оч прошу помоч найти ошибку

[Unknowns]

Program p1;
Uses Crt;
var
m:array[1..100]of integer;
n,i,sum,su:integer;
sr:real;
begin
clrscr;
writeln('Введите кол-во людей');
readln(n);
clrscr;
writeln('Сколько кому лет');
for i:=1 to n do begin
m[i]:=random[40];
sum:=sum+m[i];
if m[i]<20 then su:=su+m[i];
write(m[i]:3);
end;
writeln;
sr:=sum/n;
writeln('общий возраст - '+sr:3:3);
sr:=su/n*100;
writeln('% тех, кто младше 20 - '+sr:3:3);
readln;
end.


в проге в конце влазит ошибка помогите оч срочно нужно

---

[Your Captain is Captain Morgan]

Помогите, пожалуйста, с задачей на С++
Описать класс "Историческое событие" с полями "число", "месяц", "год", "событие" и следующими методами:
а)ввода исторического события (сделано)
б) вывода исторического события (сделано)
в) вычисляющего интервал в днях, прошедший между двумя заданными историческими событиями (есть задумки, но не могу реализовать)
г) сортирующую массив событий по полю "событие". (вообще глухо)

класс описал, есть метод, определяющий, високосный год или нет. Опыта в программирование не хватает, чтобы додуматься до остального.(
помогите, пожалуйста!

---

Помогите девушке с C++

[Selestina Allaveno]

Я не программист, но мне позарез до завтрашнего утра нужно сделать лабу по C++ вот такое задание:

Функция,
если строка является именем нарицательным (первая буква прописная),
преобразует ее, оставив только эту прописную букву и точку после нее.
Если строка преобразована, то функция возвращает строку, в противном
случае возвращает NULL.
Приложение из введенной строки-фразы
формирует два массива слов: исходный и новый массив, в котором имена
нарицательные преобразованы.

Есть образец - как делать (готовая работа) и теоретическая часть. Помогите, пожалуйста!!!

---

[Dog Eat Dog]

Доброго времени суток!
Думаю пользователям сообщества будет интересно заценить сайт с тестами по разным языкам программирования, веб-технологиям и др. информационным технологиям.
После прохождения тестов на сайте есть возможность просмотреть правильные ответы.
Считаю что сайт пригодится всем кто имеет отношение к программированию, и окажется полезным в плане обучения.

линк

@темы: Интернет

---

Помогите найти ошибку (нужно очень срочно)

[Izzie]

Здравствуйте, скажите пожалуйста, можете ли вы помочь мне найти ошибку в коде, уже по всякому пыталась исправить программу, ничего не помогает, я просто в Паскале только новичок, поэтому самостоятельно никак не получается сделать программу рабочей. Я написала программу - счетчик с использованием семафор для параллельного ее запуска, но дело в том ,что если запустить программу один раз, она считает все верно, а если одновременно 2 раза, то совсем ничего не считает....что-то в ней не так..вот код:

program Counter2;
uses
crt;
const
SemaphoreFile = 'Semaphore.txt';
var
x:integer;
procedure Enter_Critical_Section;
begin
repeat
{$I-}
mkdir(SemaphoreFile);
{$I+}
until IOResult = 0;
end;

procedure Leave_Critical_Section;
begin
rmdir(SemaphoreFile);
end;

procedure Counter;
const
CounterFileName = 'Counter.txt';
var
s:text;
rujuk:integer;
begin
Enter_Critical_Section;
begin
Assign (s,'rujuk.txt');
{$I-}
reset(s);
{$I+}
If IOResult=0
Then

begin
reset(s);
read(s,x);
close(s)
end
else
begin
rewrite(s);
x:=0;
end;
inc (x);
rewrite(s);
write(s,x);
close(s);
writeln('Kolichestvo obrashcheniy=',x);

end;
Leave_Critical_Section;
writeln('Kolichestvo obrashcheniy=',x);
end;

begin
for x:=1 to 1000 do Counter;
repeat until KeyPressed;
end.

@музыка: Гала-радио

@настроение: Прекрасное, но если заработает программа, будет лучше

@темы: паскаль

---

[Nanita]

Подскажите, как скопировать строку в буфер

#include <vcl.h>
#pragma hdrstop

#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
char Buf[500]="";
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
  strcpy(Buf,Edit1->Text.c_str());
}
//---------------------------------------------------------------------------

ошибку выдает упорно..

---

[[ . LuXuRy . ]]

Сижу туплю...как в парсер вставить часть с проверкой ещё и слэша!?

код

int checkXML(FILE *xml)
{
char bufer[255];
int length = 0;
int line = 0;
int counter = 0;
int nTags = 0;
while ( !feof(xml) )
{
fgets(bufer, 255, xml);
line++;
if( line == 1 )
fgets(bufer, 255, xml);
else
{
length = strlen(bufer);
for (int k=0; k {
if(bufer[k]=='<'
{
counter++;
if (bufer[k+1] != '/' nTags++;
}
if(bufer[k]=='>'
{
counter--;
}
}
if( counter != 0 )
{
printf("XML file is not correct, < or > missing in line %d\n", line);
getch();
exit(1);
}
}
}
rewind(xml);
return nTags;
}

---

[Полбутылки сентября]

1.товарищи, подскажите в чем дело, я с ума схожу — в Delphi после компиляции не отображается имя RadioButton

тут есть

тут нет

в чем проблема?

---

помогите мелкую гадость выловить )

[asura013]

вот нутром чую что какая-то мелкая ошибка где-то, а найти не могу =\

есть 2 листбокса, в каждый добавляются файлы через Opendialog, в объект записывается отдельно путь, имя и расширение файлов.
нужно переименовать файлы одного листбокса по именам из второго, сохранив расширение. переименовываю через SHFileOperation :

procedure rm(FF,FT:string);
var
  sStruct: TSHFileOpStruct;
begin
  with sStruct do
   begin
    Wnd    := 0;
    wFunc  := FO_MOVE;
    pFrom  := PChar(FF);
    pTo    := PChar(FT);
    fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or
                FOF_SILENT or FOF_NOCONFIRMATION;
  end;
  SHFileOperation(sStruct);
end;

дальше вытаскиваю из листбоксов имена для переименования

  
for I := 0 to OutList.Count - 1 do
    begin
      OutFile := OutList.Items.Objects[I] as TFileItem;
      InpFile := InpList.Items.Objects[I] as TFileItem;

      inf := OutFile.path + '\' + OutFile.name + '.' + OutFile.ext;
      ouf := OutFile.path + '\' + InpFile.name + '.' + OutFile.ext;

      rm(inf, ouf);
    end;

и вот тут собственно начинаются проблемы: файлы, в именах которых нет спец символов (то бишь только буквы и цифры) переименовываются на ура, а вот если в имени есть квадратные скобки, точки и т.п. допускаемое виндой, то тут уже как повезёт, либо переименовывает файлы через 1, либо только первый, либо вообще ничего. смотрел какая ошибка вылазит - пишет "Не удаётся перенести файл. Не удаётся произвести чтение из файла или с диска.".

где я не прав? =)

---

к слову о qt creator, qt 4.5 и mingw

[mistificator]

Всё ещё мучаетесь сообщением типа "Entry point _Z5QFreePv not found in QtCore4.dll" при попытке запустить release-cборку приложения? Всё очень просто решается. В папке bin лежат QtCore4.dll и QtGui4.dll, собранные под Visual Studio 2008. И никаким боком они c вашим приложением, собранным на MinGW, работать не будут. Возьмите QtCore4.dll и QtGui4.dll (и что вам ещё нужно) из папки qt/lib , скопируйте в папку своего приложения, и будет вам счастье.
Enjoy.

url

---

[Scabby]

нужно сгенерировать 3d ландшафт. желательно в делфи.+ openGL...
может ли кто-нибудь помочь чем-нибудь... или у кого-то есть пример на любом языке*?

@темы: Работа

---

[Татик.]

Помогите, пожалуйста!
у меня 2 проблемы и вытекают они одна из другой. я не совсем понимаю что от меня хотят и поэтому не совсем понимаю как это реализовать.
Задание:
Вводится набор строк. Найти в нем такие гласные буквы, каждая из которых не входит по крайней мере в одну из заданных строк.

решить надо с помощью множеств на Delphi...

---

[Полбутылки сентября]

комрады, порекомендуйте пожалуйста толковые книги по С++ для человека, который оный язык видит первый раз в жизни. и вообще, насколько это реально, самому, только с мануалами, С++ освоить?

и еще, может кто-то имеет представление о книгах Фленова "(свой вариант) глазами хакера". в частности, сегодня в магазине взгляд упал на "Программирование в Delphi глазами хакера", но молодой человек за соседним шкафом яростно мне ее отсоветывал. он был прав? действительно не стоит тратить на нее время и деньги?

---

Работа с классами в C++

[darkie <3]

Вот такое вот задание:

На междугородной телефонной станции картотека абонентов, содержащая
сведения о телефонах и их владельцах, организована в виде двоичного
дерева и хранится в файле.
Написать программу, которая:
- обеспечивает начальное формирование картотеки;
- производит вывод всей картотеки;
- вводит номер телефона, дату и время разговора;
- выводит извещение на оплату телефонных разговоров абонента за 1 месяц;
Программа должна обеспечивать диалог с помощью меню и контроль ошибок при вводе.
Возможно стоит использовать map или vector.
Использование классов тоже необходимо.
Заранее огромное спасибо за любую помощь!)

---

Помогите по Паскалю плз

[Unknowns]

3.Написать программу, выводящую на экран минимальное значение из последовательности введенных с клавиатуры натуральных чисел. Ввод прекращается, когда задается ноль. Массив не использовать.
4.Найти сумму цифр, находящихся на нечетных позициях в записи произвольного натурального числа.
5.Составить программу вычисления значений функции F(х) на отрезке [а, Ь] с шагом h. Результат представить в виде таблицы, первый столбец которой -значения аргумента.
F(x)=1/x
второй - соответствующие значения функции:


В 3й задаче не понял как прекратить ввод при 0

4я задача как и 2ая, как задать позицию числа то

5 не представляю вообще пока

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

---

Ребята помогите

[Keylog]

Народ,помогите мне пожалуйста,напишите хотя бы одну программу из двух на паскале : 1) реализация множеств посредством списков. 2) нахождение самого длинного простого пути от заданной вершины ориентированного графа. Вот,ну просто не идет у меня никак это,а сдавать нужно всё равно. Если знаете как,то помогите пожалуйста. Спасибо.

---

1 курс. Pascal

[Надпись]

Пожалуйста, помогите
Составить программу расчета суммы ряда s=x - x^2/2 + x^3/3 - x^4/4 ...
(an) для заданного x и с точностью eps. Результат сравнить с ln(1+x).
(an)Крайний срок - завтра 7 утра

---

Диспетчер

[Scabby]

никак не получается разобраться.

знаю что тема поднималась кучу раз, но все же.

получаю список приложений в ListBox'е по кнопке.

можно ли мне как-то снять задачу в нем?

или нужно через StringGrid?

не знаю как перейти от Листбокса к СтрингГриду.

И не совсем догоняю как получить хэндлы всех процессов.

кто-нибудь может помочь чайнику...

unit Unit1;

interface

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

type
TForm1 = class(TForm)
PageControl1: TPageControl;
appsheet: TTabSheet;
processheet: TTabSheet;
spaadsheet: TTabSheet;
processlist: TStringGrid;
Button2: TButton;
Button3: TButton;
Button4: TButton;
ListBox1: TListBox;
Button1: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);

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

var
Form1: TForm1;

implementation

{$R *.dfm}






procedure TForm1.Button1Click(Sender: TObject);
var
Wnd: hWnd;
buff: array[0..127] of Char;
begin
ListBox1.Clear;
Wnd := GetWindow(Handle, gw_HWndFirst);
while Wnd <> 0 do begin {Не показываем:}
if (Wnd <> Application.Handle) and {-Собственное окно}
IsWindowVisible(Wnd) and {-Невидимые окна}
(GetWindow(Wnd, gw_Owner) = 0) and {-Дочернии окна}
(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков}
then begin
GetWindowText(Wnd, buff, sizeof(buff));
ListBox1.Items.Add(StrPas(buff));
end;
Wnd := GetWindow(Wnd, gw_hWndNext);
end;
ListBox1.ItemIndex := 0;
end;




end.

---

[.franky.]

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

paste.org.ru/?ie8iax