Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 0
Регистрация: 21.11.2018
Сообщений: 42
1
Delphi 6-7

Не могу понять ошибку. Постоянно её выдает на выделенном ниже моменте

13.04.2019, 20:22. Просмотров 239. Ответов 10
Метки нет (Все метки)


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
unit Unit7;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm7 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form7: TForm7; b:record
    end;
 
implementation
 
uses Unit2, Unit4, Unit1;
 
 
{$R *.dfm}
 
procedure TForm7.BitBtn2Click(Sender: TObject);
begin
form7.Visible:=false;
form2.show;
end;
 
procedure TForm7.BitBtn1Click(Sender: TObject); var f:string;
var fp:string;
begin
fp:=edit1.text;
AssignFile(f,[SIZE="4"]fp+[/SIZE]'.lli');
Rewrite(f);
p:= fp+'.lli';
 
end; end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.04.2019, 20:22
Ответы с готовыми решениями:

Не могу понять почему выдает ошибку. Подскажите в чем не прав, код прилагаю ниже
#include <iostream> #include <string> #include <map> using namespace std; class Person{...

Выдает ошибку понять не могу где исправить, запускаю первая кнопка работает, а вторая нет. скрин ниже
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms,...

Структура: Не могу понять, почему выдает ошибку и как собственно эту ошибку можно исправить?
Привет,не могу понять почему ошибку выдает и как сбстно эту ошибку можно исправить? #include...

Выдает ошибку. Не могу понять
Вот исходник. В самом исходнике вроде нет ошибок. Но при компиляции выдает ошибку #include...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
10
Продавец времени
4925 / 2701 / 621
Регистрация: 12.03.2015
Сообщений: 13,099
13.04.2019, 20:25 2
Не могу понять ошибку. Постоянно её выдает на выделенном ниже моменте


Incompatible types?
0
Продавец времени
4925 / 2701 / 621
Регистрация: 12.03.2015
Сообщений: 13,099
13.04.2019, 20:25 3
Вложение 1029348

Incompatible types?
0
1 / 1 / 0
Регистрация: 21.11.2018
Сообщений: 42
13.04.2019, 20:51  [ТС] 4
Не заметила. Тем не менее проблема не ушла
0
Продавец времени
4925 / 2701 / 621
Регистрация: 12.03.2015
Сообщений: 13,099
13.04.2019, 21:27 5
Цитата Сообщение от Саша030501 Посмотреть сообщение
Тем не менее проблема не ушла
Показывай код.
И задание заодно.
0
1 / 1 / 0
Регистрация: 21.11.2018
Сообщений: 42
13.04.2019, 21:40  [ТС] 6
Delphi
1
2
3
4
5
6
7
8
9
procedure TForm7.BitBtn1Click(Sender: TObject);
var fp:string;
begin
fp:=edit1.text;
AssignFile(f,fp+'.lli');
Rewrite(f);
p:= fp +'.lli';
 
end;
Необходимо ввести в эдит название и при нажатии на кнопку должен создаваться этот файл
0
Продавец времени
4925 / 2701 / 621
Регистрация: 12.03.2015
Сообщений: 13,099
13.04.2019, 21:48 7
Не могу понять ошибку. Постоянно её выдает на выделенном ниже моменте

Undeclared identifier 'f'?
-----
Не надо так делать.
Задание покажи.
0
229 / 161 / 54
Регистрация: 26.10.2014
Сообщений: 912
13.04.2019, 21:49 8
Цитата Сообщение от Саша030501 Посмотреть сообщение
p:= fp +'.lli';
а это для чего?

Цитата Сообщение от Саша030501 Посмотреть сообщение
var
Form7: TForm7; b:record
end;
тут end не нужен
0
Модератор
63223 / 46978 / 32379
Регистрация: 18.05.2008
Сообщений: 113,863
13.04.2019, 21:51 9
Цитата Сообщение от Саша030501 Посмотреть сообщение
создаваться этот файл
А файл какого типа? Нужно объявить эту переменную.
0
1 / 1 / 0
Регистрация: 21.11.2018
Сообщений: 42
13.04.2019, 22:17  [ТС] 10
Файл должен быть типизированным
0
Модератор
63223 / 46978 / 32379
Регистрация: 18.05.2008
Сообщений: 113,863
14.04.2019, 07:55 11
Цитата Сообщение от Саша030501 Посмотреть сообщение
должен быть типизированным
И неизвестного типа?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
type zap=record
               //типы полей
              end;
.....................................
procedure TForm7.BitBtn1Click(Sender: TObject);
var fp:string;
     f:file of zap;
begin
fp:=edit1.text+'.ili';
AssignFile(f,fp);
Rewrite(f);
 
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.04.2019, 07:55

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

Выдает ошибку но я не могу понять почему
#include <iostream> using namespace std; struct warehouse { char *name; int number, prise,...

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

Выдает ошибку, не могу понять почему.
Всем привет! Пишу вот такой запрос, выдает ошибку, не могу понять почему... USE Study ...

Выдает ошибку не могу понять почему
package AllClass; import javax.swing.JFrame; public class StartGame { public static void...


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

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

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