1 / 1 / 0
Регистрация: 13.03.2010
Сообщений: 24
1

Выдает ошибку при нажатии на кнопку

01.06.2010, 18:56. Показов 973. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте. Помогите исправит программу.
При нажатии на кнопку запускающую программу выходит ошибка:

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00450619 in module 'Project1.exe'. Read of address FFFFFFFF'. Process stopped. Use Step or Run to continue.



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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var
s1,s2:string;
i,j,k:integer;
begin
s1:=edit1.text ;
s2:=edit2.text ;
 for k:=0 to length(s1) do
  for i:=0 to length(s1) do
   for j:=0 to length(s2) do
   begin
   if s1[i]=s2[j] then
   begin
   delete(s1,pos(s1[i],s1),1);
   delete(s2,pos(s2[j],s2),1);
    break;
   end;
   end;
 
   if length(s1)=0 then Memo1.Lines.Add('Возмлжно')
   else Memo1.Lines.Add('Невозможно');
 
 
end;
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2010, 18:56
Ответы с готовыми решениями:

Выдает ошибку при нажатии на button
unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

После присвоения кода на кнопку на табе при нажатии кнопки выбивает ошибку
Всем привет делаю для себя браузер, но есть одна проблема После присвоения кода на кнопку на табе...

Как сделать, чтобы при первом нажатии на кнопку TButton появлялось одно сообщение, а при втором нажатии - другое?
помогите как сделать в чтобы в кнопке button при первом нажатий вылазило сообщение ShowMessage('Вы...

При нажатии на кнопку вывести надпись, при нажатии на другую - сбросить
Создайте программу, которая при нажатии на одну кнопку (объект Button) выводит на этикетку (Label)...

3
126 / 126 / 24
Регистрация: 14.02.2010
Сообщений: 289
01.06.2010, 19:02 2
точно не скажу но может быть из-за того что ты начинаешь строки с 0 считать символы строки!!!
А 0 символа нету!! То есть первый символ не 0 а 1!!
0
912 / 672 / 134
Регистрация: 01.03.2010
Сообщений: 1,273
01.06.2010, 19:17 3
Vaserman,
Или вероятно, что один из Edit не содержит информации. Ну и сделать как Sanya0107 сказал.
0
379 / 332 / 89
Регистрация: 26.05.2010
Сообщений: 750
01.06.2010, 19:47 4
тебе правильно говорят надо с 1 начинать строки подвергать твоим действиям это точно
0
01.06.2010, 19:47
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2010, 19:47
Помогаю со студенческими работами здесь

Memo в delphi / как сделать так чтобы при нажатии на кнопку memo появляется, при повторном нажатии исчезает
как сделать так чтобы при нажатии на кнопку текст с memo появляется, при повторном нажатии исчезает...

Возвращение к предыдущему действию при расчетах при нажатии на кнопку
помогите сделать кнопку, которая будет возращать обратно. Например: мы сделали какое-то...

Кнопки. При запуске исчезали, а при нажатии на кнопку появлялись
На форме 3 кнопки(bitbtn) и кнопка (button) при запуске project1 нужно что бы 3 кнопки(bitbtn)...

Картинка при нажатии на кнопку
Как-то я смотрел готовые программы и при нажатии в них "справка" выходило не сообщение в диалоговом...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru