Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.02.2010, 16:03   #1
2009
Пользователь
 
Регистрация: 01.03.2009
Сообщений: 31
По умолчанию Delphi(memo)

Доброе время суток

что в delphi испозуется вместо привычного writeln в паскале

помогите исправить ошибки

Код:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
     const N=100;  T=10;    l=2e-10;     k=0.1;   m=1e-25;   dV=1;
var
  Form1: TForm1;
    a,ti,dt : real;
    x : array[1..200] of real;
    v : array[1..200] of real;
     i : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  for i:=1 to N do
    begin
      x[i]:=i*l;
      v[i]:=0;
    end;
 for i:=1 to N do
  begin
    write ('Координата елементу ланцюжка* x[',i);
    write (']  ');
    writeln (x[i]);
    write ('Швидкість елементу ланцюжка* V[',i);
    write (']  ');
    writeln (V[i]);
   end;
    readln;
    ti:=0;
      dt:=10e-13;
  while dt<T do
    begin
    dt:=dt+dt;
    x[1]:=dV*dt;
    writeln (dt);
    writeln (x[1]);
    for i:=2 to N-1 do
      begin
       writeln (x[i+1]);
       writeln (x[i]);
       writeln (x[i-1]);
       readln;
       a:=((x[i+1]-2*x[i]+x[i-1])*k)/m;
       writeln (a);
       readln;
       x[i]:=x[i]+v[i]*dt+a*sqr(dt);
       writeln (x[i]);
       readln;
       v[i]:=v[i]+a*dt;
       writeln (v[i]);
       readln;
       end;
    end;
 for i:=1 to N do
  begin
    memo1.Lines:=floattostr(x[i]);
    write ('Координата елементу ланцюжка* x[',i);
    write (']  ');
    writeln (x[i]);
    write ('Швидкість елементу ланцюжка* V[',i);
    write (']  ');
    writeln (V[i]);
   end;
     readln;
end;


end.
2009 вне форума Ответить с цитированием
Старый 18.02.2010, 16:05   #2
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Цитата:
что в delphi испозуется вместо привычного writeln в паскале
Может Вам удобней будет использовать Console application?

Код:
Memo1.Text:=Memo1.Text+'Строка'+#13+'Эта строка будет на другой строке';
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 18.02.2010, 16:19   #3
2009
Пользователь
 
Регистрация: 01.03.2009
Сообщений: 31
По умолчанию

а через label можно как то организовать?
2009 вне форума Ответить с цитированием
Старый 18.02.2010, 16:20   #4
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Label не поодерживает многострочный текст. Либо генерируйте их динамически (пока не Ваш уровень) либо используйте memo.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 18.02.2010, 16:23   #5
Google2010
Форумчанин
 
Регистрация: 16.02.2010
Сообщений: 316
По умолчанию

Цитата:
Label не поодерживает многострочный текст.
вы не правы(
Код:
lbl1.caption:='Строка'+#13+'Эта строка будет на другой строке';
попробуйте))
Google2010 вне форума Ответить с цитированием
Старый 18.02.2010, 16:24   #6
2009
Пользователь
 
Регистрация: 01.03.2009
Сообщений: 31
По умолчанию

Цитата:
Сообщение от Alex Cones Посмотреть сообщение
Может Вам удобней будет использовать Console application?

Код:
Memo1.Text:=Memo1.Text+'Строка'+#13+'Эта строка будет на другой строке';
что-то не пойму как мне memo использовать
2009 вне форума Ответить с цитированием
Старый 18.02.2010, 16:27   #7
Google2010
Форумчанин
 
Регистрация: 16.02.2010
Сообщений: 316
По умолчанию

Цитата:
что-то не пойму как мне memo использовать
вместо writeln пишите
Код:
memo1.lines.add('тот текст который надо добавить');
а вместо write
Код:
Memo1.Text:=Memo1.Text+'тот текст который надо добавить';
Google2010 вне форума Ответить с цитированием
Старый 18.02.2010, 16:30   #8
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Цитата:
вы не правы(
Приношу извинения - перепутал с кепшеном батона.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi Работа с memo mega-X-mozg Помощь студентам 3 13.02.2010 21:09
Memo и Edit в Delphi werser Помощь студентам 4 24.08.2009 19:30
[Delphi] Memo с нумирацией строк Kolhan Помощь студентам 3 22.07.2009 08:26
Delphi. Определение кол-ва строк в Memo PAVEL315 Помощь студентам 8 08.12.2007 21:53
компонент Memo в delphi vvaassiill Помощь студентам 1 29.05.2007 20:47