Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
0 / 0 / 0
Регистрация: 20.06.2009
Сообщений: 3

Как считать строчки из Мемо

21.06.2009, 00:43. Показов 2920. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго Времени суток,
кто-нибудь может подсказать, как считать строчки из мемо (это цифры).
Они нужны мне как числа для дальнейших вычислений.

Вот кусочек программы
C++
1
2
3
4
5
6
7
8
9
10
double x,y,z;
{
x=StrToFloat(Edit5->Text);
y=StrToFloat(Edit6->Text);
z=StrToFloat(Edit7->Text);
 
for (x; x<=y; x+=z)
{
Memo1->Lines->Add(x);
}
Теперь мне нужны числа из мемо1 чтобы умножить их сдругими числами в edit4,5,6 итд
и записать рядом с числом в мемо1 не стерая старого числа.

Заранее благодарен
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.06.2009, 00:43
Ответы с готовыми решениями:

Как считать поле мемо, расположенного на приложении1 приложением2?
Уважаемые форумчане, подскажите мне бестолковому как можно считать поле Form1.memo1.Strings, расположенного на приложении1.exe...

Компонент Мемо, можно ли пронумеровать строчки и обращаться к ним?
Дело в том, что мне нужно пронумеровать строчки в мемо, а потом обращаться к каждой отдельно? Как это можно реализовать?

Считать с мемо
Привет всем, такая проблема , надо считать с мемо значения и занести их в массив , но выдает исключениеunit Unit1; {$mode objfpc}{$H+}...

5
Почетный модератор
7393 / 2639 / 281
Регистрация: 29.07.2006
Сообщений: 13,696
21.06.2009, 00:50
Зачем их читать из мемо, если можно сформировать из x,y,z? Если именно из мемо нужно, то также и читать, используя Lines.
0
0 / 0 / 0
Регистрация: 20.06.2009
Сообщений: 3
21.06.2009, 00:58  [ТС]
Цитата Сообщение от Vourhey Посмотреть сообщение
Зачем их читать из мемо, если можно сформировать из x,y,z? Если именно из мемо нужно, то также и читать, используя Lines.
Чтобы вставить в функцию ах3+bx2+cx+d=f(x) и найти f(x)=0
a,b,c,d я хотелбы задавать при помощи других Editов a х берётся из мемо.
0
Почетный модератор
7393 / 2639 / 281
Регистрация: 29.07.2006
Сообщений: 13,696
21.06.2009, 01:01
Не понял нифига. Так что мешает взять число через Lines? Они же там по строкам лежат. Бери по индексу и все.
0
0 / 0 / 0
Регистрация: 20.06.2009
Сообщений: 3
22.06.2009, 01:33  [ТС]
Цитата Сообщение от Vourhey Посмотреть сообщение
Не понял нифига. Так что мешает взять число через Lines? Они же там по строкам лежат. Бери по индексу и все.
Вроде получилось, только результаты после введения чисел в Edit 1-4 какието неправильные. Ответ Всегда 1072693248. Не пойму где Ошибка. Может подскажет кто, что неправильно сделал .



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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "math.h"
 
double test(x,a,b,c,d)   //
   {
   return a*(x*x*x)+b*(x*x)+(c*x)+d ; //
   }
 
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{ //Beginn  void
 
double x,y,z; //
 
  {//Beginn
 
  Memo1->Clear();
  x=StrToFloat(Edit5->Text);
  y=StrToFloat(Edit6->Text);
  z=StrToFloat(Edit7->Text);
 
   for (x; x<=y; x+=z)//
 
  { //
   Memo1->Lines->Add(FloatToStr(x)); //
  } //
 
   int i=0;
   for( i; i< Memo1->Lines->Count-1;i++)//
 
 
 
   {//
 
   double a,b,c,d; //
   a=StrToFloat(Edit1->Text);
   b=StrToFloat(Edit2->Text);
   c=StrToFloat(Edit3->Text);
   d=StrToFloat(Edit4->Text);
 
 
    Memo1->Lines->Strings[i]=Memo1->Lines->Strings[i]+"---->"+FloatToStr
    (test(StrToFloat(Memo1->Lines->Strings[i]),a,b,c,d));
 
    }//
 
 
   }//Ende
 
}//Ende
 
//---------------------------------------------------------------------------
0
 Аватар для mirso
562 / 373 / 55
Регистрация: 05.04.2009
Сообщений: 767
22.06.2009, 02:28
noname123,
прапробуй
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "myStrFromMemo1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
#include "math.h"
 
double test(double x, double a, double b, double c, double d)
{  //-----а--эта---шо--такое------------------
 
   return (   a*(x*x*x)+b*(x*x)+(c*x)+d   );
}            //-------------------------
 
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double x,y,z;
 
    Memo1->Clear();
    x=5;//?  StrToFloat(Edit5->Text)
    y=43;//? StrToFloat(Edit6->Text)
    z=2;//? StrToFloat(Edit7->Text)
    //-----а--эта---шо--такое--------------
    for(; x <= y; x += z)
    {
         Memo1->Lines->Add(FloatToStr(x));
    }
    //-------------------------------------
 
    //-----а--эта---шо--такое--?-----------------------------------------------
    for( int i = 0; i< Memo1->Lines->Count-1;i++)
    {
        double a,b,c,d; //
        a=1;// StrToFloat(Edit1->Text)
        b=3;//StrToFloat(Edit2->Text)
        c=random(1000);;//StrToFloat(Edit3->Text)
        d=random(1000);// StrToFloat(Edit4->Text)
 
        //-----а--эта---шо--такое--------------
 
                       double tmp1 = StrToFloat(Memo1->Lines->Strings[i]);
           double tmp2 = test(tmp1,a,b,c,d);
    String tmp  = tmp2;
 
        Memo1->Lines->Strings[i] = Memo1->Lines->Strings[i]+ "---->" + tmp;
    }
    //------------------------------------------------------------------------
 
}
//---------------------------------------------------------------------------
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.06.2009, 02:28
Помогаю со студенческими работами здесь

подскажите пожалуйста как сделать заполнение одного мемо количеством строк равных другому мемо?
Подскажите пожалуйста есть 2 memo в одному допустим 20 строк а в другом 5 как сделать что бы при нажатии на button второй memo заполнялся...

Считать только строчки где есть определенное слово
Нужно считать только строчки где есть слово vertex. Что бы считать, естественно нужно удалить пробелы перед словом vertex и между ним и...

С файла считать цифры a и b в каждой строчки и вывести их сумму в другой файл
Нужно с файла считать цифры a и b в каждой строчки и вывести их сумму в другой файл. При чем количество таких пар неизвестна. Почему моя...

как перевести информацию из Мемо в фаил txt и обратно из txt в мемо
Подскажите пожалуйста, как перевести информацию из Мемо в фаил txt и обратно из txt в мемо для последующего редактирования. ...

по нажатию кнопки программа вставляет с первого мемо строку с вызываемым номером во второй мемо на первое место
по нажатию кнопки программа вставляет с первого мемо строку с вызываемым номером(номер вводится в эдит) во второй мемо на первое место.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru