Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.18;
Скачать: CL | DM;

Вниз

массив стрингов   Найти похожие ветки 

 
TButton ©   (2003-09-07 23:54) [0]

Как правильно объявить константу - массив стрингов?
пишу:

const
days:array [0..6] of string = ("понедельник","вторник","среда","четверг","пятница","суббота","воскресенье");

компилятор ругается.

З.Ы.Извиняюсь, за ламерский вопрос, сам ведь когдато на него отвечал, а сейчас вот забыл ;)


 
Юрий Зотов ©   (2003-09-08 00:03) [1]

Объявление правильное, он ругается на что-то другое. Приведите текст сообщения.


 
TButton ©   (2003-09-08 00:08) [2]

вот текст (тока начал)

unit Unit1;

interface

const
days:array [0..6] of string = ("понедельник","вторник","среда","четверг","пятница","суббота","воскресенье");

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

type
TForm1 = class(TForm)
ListBox1: TListBox;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

end.



выделяет строчку с юзами и заявляет: "[Error] Unit1.pas(8): Declaration expected but "USES" found"


 
TButton ©   (2003-09-08 00:10) [3]

хы! сообразил! рановато объявляю ;)


 
Ihor Osov'yak ©   (2003-09-08 00:26) [4]

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


 
Dimaxx ©   (2003-09-08 01:40) [5]

Сначала должен идти uses, а потом const, type, var...



Страницы: 1 вся ветка

Текущий архив: 2003.09.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
14-58862
Relaxxx
2003-08-30 14:51
2003.09.18
Как мне узнать что в Едит ввели нечисло а строковое значение??


14-58914
Всеволод Соловьёв
2003-08-13 21:30
2003.09.18
Ученые научились получать энергию из крови


1-58781
Jacob
2003-09-05 16:19
2003.09.18
Контекстное меню Windows


3-58565
KIR
2003-08-27 13:26
2003.09.18
Можно ли в цикле удалить все данные из всех таблиц IB?


11-58606
RWolf
2003-01-13 11:41
2003.09.18
KOLSocket, kolTCPSocket - не могу установить