Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
1 / 1 / 0
Регистрация: 13.02.2012
Сообщений: 25
1

Проблемма с выводом.

26.04.2012, 15:03. Просмотров 723. Ответов 1
Метки нет (Все метки)

Пишу чат, на ABC, не могу сделать вывод в формах Модуль интерфейса написал , но не пойму , как в textBox вывести данные работы программы?

Вот модуль :
Pascal
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
unit myintnew;
interface
uses vcl;
implementation
 
var
  Form1: Form;
  Button2: Button;
  Button3: Button;
  Button4: Button;
  Button1: Button;
  TextBox1: TextBox;
  SaveDialog1: SaveDialog;
 
procedure InitControls;
begin
  Form1:= Form.Create(0,0,454,450);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Форма1','');
  Button2:= Button.Create(Form1,368,384,75,25);
  Button2.InitControl(True,True,alNone,crDefault,0,'Контакты','');
  Button3:= Button.Create(Form1,288,384,75,25);
  Button3.InitControl(True,True,alNone,crDefault,0,'Настройки','');
  Button4:= Button.Create(Form1,0,384,75,25);
  Button4.InitControl(True,True,alNone,crDefault,0,'Exit','');
  Button1:= Button.Create(Form1,208,384,75,25);
  Button1.InitControl(True,True,alNone,crDefault,0,'Кнопка1','');
  TextBox1:= TextBox.Create(Form1,0,64,449,241);
  TextBox1.InitControl(True,True,alNone,crDefault,clWindow,'','');
 
 
 
  TextBox1.ScrollBars:= ssNone; //text box
  SaveDialog1:= SaveDialog.Create;
  SaveDialog1.FileName:= 'Input';
  Button2.Font.Color:= clHotLight;
  Button2.Font.Name:= 'Comic Sans MS';
  Button3.Font.Color:= clHotLight;
  Button3.Font.Name:= 'Comic Sans MS';
  Button4.Font.Color:= clHotLight;
  Button4.Font.Name:= 'Comic Sans MS';
  Button1.Font.Color:= clRed;
  Button1.Font.Name:= 'Comic Sans MS';
  Form1.Position:= poScreenCenter;
  Form1.Show;
end;
 
begin
  InitControls;
end.
А вот сама программа на всякий случай.
Pascal
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
program chatAlpha;
// чат v.02 alpha(Interface+coment)
uses crt,vcl,myintnew,Timers,Events;
 
{procedure TimerProc;
begin
  write(1);        //ТАЙМЕР - пока выводит только 111111111111.
end;}
{-----------------------------------------------------------------------------}
{---------------------chat v.0,1 pre alpha------------------------------------}
{-----------------------------------------------------------------------------}
 
//$VCLDESIGN+
var YouMesg,mesg,a:string; // сообщения
    file1,file2:text;      //файлы
    t:integer;             //таймер
    {menu: Form;}          //(меню)or(кнопка),реализуем посредством модуля
//$VCLDESIGN-
 
 
begin
     writeln('Вас преведствует локальный чат версии 01.a.');  //вывод('');
     writeln('Вы уже можете начать передавать сообщения');    //вывод('');
     writeln('Что бы выйти из чата надо набрать <exit>');     //вывод('');
     writeln('------------------------------------------');   //вывод('');
while YouMesg<>'exit' do begin    // пока YouMegs не равно 'exit' делать
Delay(3600);   // delay- задержка открытия (секунды)
assign(file1,'file1.txt'); reset(file1); read(file1);
assign(file2,'file2.txt'); rewrite(file2); read(file2);
 
                       { write('Вы: ');readln(YouMesg); // вы вводите меседж
                        writeln(file2,mesg); // выводит сообщение другово человека.
                        read(file1,mesg); writeln('Собеседник : ',mesg); //и тут тоже }
                        
                        write('Вы: '); readln(YouMesg); writeln(file2,mesg);
                        // вы вводите сообщение, и заносите в file2 (Red line)
                        read(file1,mesg);// читаем file1 - присваиваем телу значение mesg
                        writeln('Собеседник : ',mesg);
                        //выводим тело(сообщение)-mesg
 
 
 
close(file1);   // закрыть 1 файл
close(file2);  // закрыть 2 файл
{t:=CreateTimer(10,TimerProc);}  //второй кусок таймера(скорость,TimerProc);
{end if a:='exit';} // было бы круто, если бы можно было построить функцию вида : если а = выход, то выход.
end;
end.
Добавлено через 21 час 33 минуты
вверх!

Добавлено через 5 часов 37 минут
ну кто нибудь...

Добавлено через 17 часов 20 минут
ЖИВЫЕ есть ?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2012, 15:03
Ответы с готовыми решениями:

Работа с матрицами, поиск наибольшей строки с ее выводом и выводом ее суммы
Написать программу: дана прямоугольная матрица размером m на n. Выделить в ней строку имеющую...

Есть ли разница между обычным выводом через echo и выводом с использованием HEREDOC-синтаксиса?
Есть ли разницы между двумя многострочными выводами ? первый записывается как строка, второй код...

Проблемма!
На днях перетащили сервер на новое железо. Конфигурация сервера (Domino) осталась неизменной, все...

Проблемма с преобразованием
Пытаюсь введенное в textbox1 посчитать и записать вычисленное в textbox3, но не выходит, подскажите...

1
1 / 1 / 0
Регистрация: 13.02.2012
Сообщений: 25
28.04.2012, 22:14  [ТС] 2
Что никто не умеет работать с модулем vlc?((((

Добавлено через 3 часа 45 минут
ауууууууууууууууууууууууу:*
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.04.2012, 22:14

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Проблемма с гаджетами
Привет, помогите, пожалуйста, с гаджетами на Windows 7. Проблемма вот в чем: в один прекрасный день...

Проблемма с title
Привет . у меня возникла проблемма помогите решить . Вот я хочу сделать выборку из бд . прописал...

Проблемма с консолью
Доброго времени суток. При на написания простейшего &quot;Hello World&quot;, после компиляции появляется...

Проблемма с монитором
Добрый день форум! Вот у меня проблема, Я купил для дома новый монитор(Телевизор) 24 дюмовый, ну...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.