[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

---

[Muraki]

Добрый вечер.
Я к вам не с пустыми руками, а с тупым вопросом.
Имеется: delphi7, quickreport5 и простой select-запрос, в котором выбираются некоторые данные, сгруппированные по дате. Дата идет в формате dd.mm.yyyy. А теперь, внимание, вопрос: как сделать в отчете группировку по месяцам? То есть чтобы выводились данные не за конкретное число месяца, а за весь месяц в сумме?
Понимаю, что вопрос нубский, но надеюсь, поможете.

---

новосибирск,2-4 марта,я орг - жду всех..)

[курить_]

Доброго времени суток! Приглашаем Вас принять участие в конференции
"СПО как культура жизни"

Время проведения: 2,3,4 марта. С 17 до 20-выступления докладчиков. С 15 часов практическая деятельность.
Место проведения: НГТУ, 7 корпус (АВТФ), I поточная аудитория.

Цель конференции:

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


Задачи конференции:

Показать различия между знаниями, получаемыми в образовательном процессе и на реальных жизненных предприятиях
Сформулировать образ "IT специалист XXI века"
Рассмотрение перспектив использования СПО в свете современных достижений информационных технологий
Рассмотрение образовательных аспектов использования СПО в Новосибирской области

Мы приглашаем вас принять участие и будем рады, если вы выступите с докладом
(в этом случае убедительно просим сообщить нам тему вашего выступления и 3-5 ключевых слов,
мы ждём от вас письма по адресу [email protected]).

Более подробную информацию можно получить:
www.spo.nsk.ru
ltk.freedomcenter.info
[email protected]

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

---

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

товарищи, не дайте погибнуть во цвете лет.
кто-нибудь может посоветовать толковый мануал по LabView?

---

Продолжаю пытаться понять компилятор

[-=TurboRufus=-]

Опять же имеется класс (двунаправленный кольцевой список):
class cRingList {
private:
cNode1* first;
cNode1* last;
cNode1* cur;
public:
cRingList();
bool IsEmpty();
void AddRight(int);
void AddLeft(int);
void DeleteLast();
void DeleteFirst();
int Size();
void GoNext();
void GoPrev();
void GoFirst();
void GoLast();
bool IsFirst();
bool IsLast();
void DelElem(int num);
int GetData();
void SetData(int);
void AddAfterNum(int num, int data);
~cRingList();
};

Описание класса:

cRingList::cRingList() {
first = NULL;
last = NULL;
cur = NULL;
std::cout << "Constructor" << std::endl;
}

bool cRingList::IsEmpty () {
return (first == NULL);
}

void cRingList::AddRight (int val) {
cNode1* tmp;
tmp = new cNode1 ();
tmp->SetData(val);
if (IsEmpty()) {
first=tmp;
last=tmp;
first->SetNext(last);
last->SetNext(first);
last->SetPrev (first);
first->SetPrev (last);
cur = first;
}
else {
tmp->SetNext(first);
tmp->SetPrev(last);
last->SetNext(tmp);
first->SetPrev(tmp);
last = tmp;
}
}

void cRingList::AddLeft(int val) {
cNode1* tmp;
tmp = new cNode1 ();
tmp->SetData (val);
if (IsEmpty()) {
first=tmp;
last=tmp;
first->SetNext (last);
last->SetNext (first);
last->SetPrev (first);
first->SetPrev (last);
cur = first;
}
else {
tmp->SetNext(first);
tmp->SetPrev(last);
last->SetNext(tmp);
first->SetPrev(tmp);
first=tmp;
}
}

void cRingList:eleteLast() {
if (!IsEmpty()) {
if (Size() == 1) {
delete (last);
last = NULL;
first = NULL;
cur = NULL;
} else {
cur = last->GetPrev();
cur->SetNext (first);
first->SetPrev (cur);
delete (last);
last = cur;
}
}
}

void cRingList:eleteFirst() {
if (!IsEmpty()) {
if (Size() == 1) {
delete (first);
first = NULL;
last = NULL;
cur = NULL;
} else {
cur=first->GetNext();
last->SetNext(cur);
cur->SetPrev(last);
delete (first);
first = cur;
}
}

void cRingList::GoNext(){
cur = cur->GetNext();
}

void cRingList::GoPrev() {
cur = cur->GetPrev();
}

void cRingList::GoFirst() {
cur = first;
}

void cRingList::GoLast() {
cur = last;
}

bool cRingList::IsFirst() {
return (cur==first);
}

bool cRingList:: IsLast() {
return (cur == last);
}

int cRingList::Size() {
if (IsEmpty()) return 0;
else {
GoFirst();
int i=1;
while (!IsLast()) {
cur->GoNext();
i++;
}
return i;
}
}

void cRingList:elElem(int num) {
if (num > 0) {
if ((!IsEmpty()) && (Size() >= num)) {
if (Size() == 1) {
delete (first);
cur = NULL;
first = NULL;
last = NULL;
} else {
GoFirst();
int i=1;
while (i < num) {
GoNext();
i++;
}
(cur->GetNext())->SetPrev(cur->GetPrev());
(cur->GetPrev())->SetNext(cur->GetNext());
delete (cur);
GoFirst();
}
}
}
}

int cRingList::GetData() {
if (cur != NULL) return (cur->GetData());
}


void cRingList::SetData(int data) {
if (cur != NULL) cur->SetData (data);
}

void cRingList::AddAfterNum(int num, int data) {
if ((!IsEmpty ()) && (Size () >= num)) {
if (num == 0) AddLeft(data);
else {
if (num == Size ()) AddRight(data);
else {
GoFirst();
int i = 1;
while (i != num) {
GoNext();
i++;
}
cNode1* tmp;
tmp = new cNode1 ();
tmp->SetData (val);
tmp->SetNext (cur->GetNext);
tmp->SetPrev (cur);
(cur->GetNext())->SetPrev(tmp);
cur->SetNext (tmp);
}
}
}
}

cRingList::~cRingList() {
std::cout << "Destructor";
}

Ошибка: error C2601: 'GoFirst' : local function definitions are illegal
Идентичные ошибки выводятся для GoPrev, GoLast, IsFirst, IsLast, DelElem, GetData, SetData, Size, AddAfterNum.

UPD. Проблема была в том. что в описании ф-ции DeleteFirst() нехватало одной закрывающей фигурной скобки. Вопрос закрыт =)

---

Что означает ошибка?

[-=TurboRufus=-]

Есть класс (Элемент двунаправленного списка):

class cNode1 {
private:
int data;
cNode1* prev;
cNode1* next;
public:
cNode1 (int = 0);
cNode1 (const cNode1&);
int GetData();
cNode1* GetNext();
cNode1* GetPrev();
void SetData(int);
void SetNext(cNode1*);
void SetPrev(cNode1*);
~cNode1 ();
};

Описание класса:

cNode1::cNode1 (int val) {
data = val;
next = NULL;
prev = NULL;
}

int cNode1::GetData () {
return data;
}

cNode1* cNode1::GetNext () {
return next;
}

cNode1* cNode1::GetPrev () {
return prev;
}

void cNode1::SetData (int data) {
this->data = data;
}

void cNode1::SetNext (cNode1* next) {
this->next = next;
}

void cNode1::SetPrev (cNode1* prev) {
this->prev = prev;
}

cNode1::~cNode1 () {
cout << "~cNode1:" << endl;
cout << "val = " << data << endl;
cout << "~cNode1." << endl;
}

Собственно при компиляции вылетают следущие (однотипные) ошибки:
error C2662: 'GetData' : cannot convert 'this' pointer from 'const class cNode1' to 'class cNode1 &'
Conversion loses qualifiers;

то же самое для методов GetNext и GetPrev. Что это означает, и как их можно вообще исправить?

---

функция

[Scabby]

У меня есть функция f(x)=ax^2+bх+c
пользователь вводит свою функцию, потом при комплеляции выводятся коэфициенты a,b,c.
не представляюкак разбить функцию саму ax^2+bх+c на токены, чтобы определялись знаки цифры и т.д.
каждого оператора....(((
помогите

Делфи