Помогите с Delphi 7

Набросал программку.
В делфи нужно добавить библиотеку типов "Регулярных выражений"

Пример проги и исходник в архиве.
P.S У меня Delphi XE
 

Вложения

  • DataClean.rar
    496,1 KB · Просмотры: 3
такие вещи проще делать на перле :)
он есть и под винду - например activeperl
*** скрытое содержание ***
К сожалению не подходит твой вариант , поскольку меня интересует именно делфи. Я для этого и пытаюсь разобраться чтобы его немного изучить. Но спасибо за совет.
Набросал программку.
В делфи нужно добавить библиотеку типов "Регулярных выражений"
*** скрытое содержание ***
Пример проги и исходник в архиве.
P.S У меня Delphi XE
Вот с тем файлом что ты вложил в архиве действительно работает, но попробовал ещё для примера 3 других файла подгрузить и уже не работает. А статистика входная будет именно в таком формате :( Вот посмотри к примеру:
 

Вложения

  • 1.txt
    1,9 KB · Просмотры: 4
  • 2.txt
    2 KB · Просмотры: 3
  • 3.txt
    2 KB · Просмотры: 3
Вот с тем файлом что ты вложил в архиве действительно работает, но попробовал ещё для примера 3 других файла подгрузить и уже не работает. А статистика входная будет именно в таком формате :( Вот посмотри к примеру:

Попробуй заменить маску поиска в коде на эту, должно сработать


Если нужно скомпилирую у себя и выложу проект с исходником.
 
Попробуй заменить маску поиска в коде на эту, должно сработать
*** скрытое содержание ***
Если нужно скомпилирую у себя и выложу проект с исходником.

Не могу заменить, у меня почему-то даже нельзя импортировать библиотеку Microsoft VBScript Regular Expressions 5.5, а без неё криво работает . У меня её просто нет. Или может не там смотрю. Даже меню "Import Component." отсутствует.

P.s. у меня 7 делфя .
 
Не могу заменить, у меня почему-то даже нельзя импортировать библиотеку Microsoft VBScript Regular Expressions 5.5, а без неё криво работает . У меня её просто нет. Или может не там смотрю. Даже меню "Import Component." отсутствует.
P.s. у меня 7 делфя .

Исправил немного программу. Теперь забирает данные нормально. Тестил на твоих прикрепленных файлах. Файл на 100000 строк чистит около 6 минут.

З.Ы Установи Delphi XE и не парся :)
 

Вложения

  • DataClean2.rar
    512,6 KB · Просмотры: 3
Исправил немного программу. Теперь забирает данные нормально. Тестил на твоих прикрепленных файлах. Файл на 100000 строк чистит около 6 минут.
З.Ы Установи Delphi XE и не парся :)
ок, как только найду хороший дистрибутив так сразу и поставлю. Кстати на Висте она работать будет?
Решил немного отвлечься и попробовал набросать програмку для психологических тестов. Вот с графическим интерфейсом в проге уже проблем нет, а с кодом никак не могу разобраться. Есть 4 радиокнопки (точнее у меня будет 8 вопросов и на каждый 4 или 3 или 2 ответа, тоесть всего 26 радиокнопок). Как сделать так, чтобы при выборе одной из 4-х кнопок какой-то переменной (баллы в програме) добавлялось то или другое количество очков. Попробовал написать так, ничего не получилось :
procedure TForm1.RadioButton1Click(Sender: TObject);
if RadioButton1.Checked = True then
begin
o:=3;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
if RadioButton2.Checked = True then
begin
o:=2;
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
if RadioButton3.Checked = True then
begin
o:=1;
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
if RadioButton4.Checked = True then
begin
o:=0;
end;
о описал в начале программы как integer. А собственно такую ошибку выдает:
declaration expekted but "if" found
В чём может быть проблема? и правильно ли я прописал всё ? :thenks:
 
Должна работать на висте.

У меня эта делфя стоит:


Попробуй так:

Код:
procedure TForm1.RadioButton1Click(Sender: TObject);
if RadioButton1.Checked = True then
begin
o:=3;
end;

if RadioButton2.Checked = True then
begin
o:=2;
end;

if RadioButton3.Checked = True then
begin
o:=1;
end;

if RadioButton4.Checked = True then
begin
o:=0;
end;
 
Вот скрин проги, чтобы проще было понять что я хочу ;)
 

Вложения

  • test.JPG
    test.JPG
    108,6 KB · Просмотры: 7
Должна работать на висте.
У меня эта делфя стоит:
*** скрытое содержание ***
Попробуй так:
Код:
procedure TForm1.RadioButton1Click(Sender: TObject);
if RadioButton1.Checked = True then
begin
o:=3;
end;
if RadioButton2.Checked = True then
begin
o:=2;
end;
if RadioButton3.Checked = True then
begin
o:=1;
end;
if RadioButton4.Checked = True then
begin
o:=0;
end;


аналогичная ошибка :( не помогло..
 
Вот скрин проги, чтобы проще было понять что я хочу ;)

Прикрути исходник, хочу взглянуть. Если не жалко :)

Я так понял все балы суммируются, а потом сравниваются с конечным результатом. Например если набрали до N балов - вы сова, если больше - Жаворонок

Добавлено через 2 минуты
может лучше для каждого вопроса создать свою переменную :integer

В конце их Суммировать и сравнить
 
Назад
Сверху