Ускорить программу

@!Omega · Регистрация: 14.02.2010

Студворк — интернет-сервис помощи студентам

моя программа очень долго заносит данные из файла в мемо1 я так думаю это из-за того что считывание идет по циклу я знаю что можно щитати данные из файла в мемо1 с помощью Opendialog1 но мне неполучаеться так сделать( помогите будьласка

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
{        Memo1->Clear();
 
 int k,n,d;
char a[10000],c[10000];
FILE *f;
char *z, *s;
char* ps=Edit2->Text.c_str();
 
 
f=fopen(ps,"r+");
  k=1;
  n=1;
  while(k<=n){
z=fgets(a,10000,f);
 
        s=strcpy( c, Edit1->Text.c_str() );
 
       if(strstr(a,s)!=0){
 
         d=strlen(z);
    Memo1->Lines->Add(a);
Memo1->Lines->Add(" ");
 
}
     if(z!=0)
n+=1;
 
k++;
 
}

@Ex_Soft · 15.02.2010, 00:10

А F1 нажать религия не позволяет?

C++
1
Memo1->Lines->LoadFromFile(Path);

@!Omega · 15.02.2010, 13:28 **[ТС]**

а как тогда поиск запрограммировать?

Добавлено через 26 минут
я питался так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
int k,n;
char a[10000],c[10000];
FILE *f;
char *z, *s;
char* ps=OpenDialog1->FileName.c_str();
                 Memo2->Lines->LoadFromFile(ps);
 
      //  s=strcpy( c, Edit1->Text.c_str() );
 
if(strstr(Memo2->Text.c_str(),Edit1->Text.c_str())!=0){
 
    Memo1->Lines->Add(Memo2->Text.c_str());
 
    Memo1->Lines->Add(" ");
 
}

НО неполучилось(((

Добавлено через 12 часов 39 минут
так как нада то прописать?

@Maestro · 15.02.2010, 13:42

Сообщение от !Omega

знаю что можно щитати данные из файла в мемо1 с помощью Opendialog1

А так можно? Нужны компоненты:
1. OpenDialog
2. Memo
3. Button

C++
1
2
3
4
5
6
// Открываем диалоговое окно открытия файла-------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if(OpenDialog1->Execute())
      Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
}

Или напрямую из события OnCreate

C++
1
2
3
...
   Memo1->Lines->LoadFromFile("text.txt"); // где "text.txt" имя вашего файла.
...

@!Omega · 15.02.2010, 14:38 **[ТС]**

у меня работает чтение из файла
у меня не работает поиск:
if(strstr(Memo2->Text.c_str(),Edit1->Text.c_str())!=0){

Memo1->Lines->Add(Memo2->Text.c_str());

oxotnik · 15.02.2010, 14:40

а нельзя так:

Code
1
 if(Memo2->Text == Edit1->Text)

хотя в чем заключается поиск?

@!Omega · 15.02.2010, 14:56 **[ТС]**

я считываю данные из файла
например такое содержимое файла:
Барт Сімсон 17 200309 НеЖинат
Вася Сімсон 17 200309 НеЖинат
Назар Сімсон 17 200309 НеЖинат
Мне нужно вывести все о "Назар"
я в Едит1 пишу "Назар" после этого программа должна сделать поиск в файле и вывести сроку где было найдено это имя

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
while(k<=n){
z=fgets(a,10000,f);
 
        s=strcpy( c, Edit1->Text.c_str() );
 
       if(strstr(a,s)!=0){
 
         d=strlen(z);
    Memo1->Lines->Add(a);
Memo1->Lines->Add(" ");
 
}
     if(z!=0)
n+=1;
 
k++;

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@!Omega 14 / 14 / 3 Регистрация: 14.02.2010 Сообщений: 293
	15.02.2010, 14:38 [ТС]
	у меня работает чтение из файла у меня не работает поиск: if(strstr(Memo2->Text.c_str(),Edit1->Text.c_str())!=0){ Memo1->Lines->Add(Memo2->Text.c_str()); 0