помогите внести изменения в программу....

@анютик · Регистрация: 12.10.2011

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

нужно изменить программу....ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!
unit Unit1;

interface

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

type
Form1 = class(Form)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: Object);
procedure Button2Click(Sender: Object);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: Form1;
e: Form1;

implementation

{$R *.dfm}

procedure Form1.Button1Click(Sender: Object);
begin
Button2.Caption:='Привет мир 1';
end;

procedure Form1.Button2Click(Sender: Object);
begin
Button1.Caption:='Привет мир 2';
end;

end.

@Arcor · 01.11.2011, 22:15

Сообщение от анютик

нужно изменить программу....ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!

Delphi
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  Form1 = class(Form)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: Object);
    procedure Button2Click(Sender: Object);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: Form1;
  e: Form1;
 
implementation
 
{$R *.dfm}
 
procedure Form1.Button1Click(Sender: Object);
begin
  Button2.Caption:='Привет мир 1';
end;
 
procedure Form1.Button2Click(Sender: Object);
begin
  Button1.Caption:='Привет мир 2';
end;
 
end.

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure Form1.Button5Click(Sender: Object);
begin
  Button29.Caption:='Привет мир 7';
end;
 
procedure Form1.Button4Click(Sender: Object);
begin
  Button15.Caption:='Привет мир 6';
end;
 
end.

так сойдет?

@анютик · 01.11.2011, 22:16 **[ТС]**

спасибо!!!!

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@анютик 0 / 0 / 0 Регистрация: 12.10.2011 Сообщений: 33

	помогите внести изменения в программу.... 01.11.2011, 22:12. Показов 1794. Ответов 2 Метки нет (Все метки) нужно изменить программу....ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!! unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type Form1 = class(Form) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: Object); procedure Button2Click(Sender: Object); private { Private declarations } public { Public declarations } end; var Form1: Form1; e: Form1; implementation {$R *.dfm} procedure Form1.Button1Click(Sender: Object); begin Button2.Caption:='Привет мир 1'; end; procedure Form1.Button2Click(Sender: Object); begin Button1.Caption:='Привет мир 2'; end; end. 0

@анютик 0 / 0 / 0 Регистрация: 12.10.2011 Сообщений: 33
	01.11.2011, 22:16 [ТС]
	спасибо!!!! 0

помогите внести изменения в программу....

Решение