Автор Xxx xxx задал вопрос в разделе Другие языки и технологии
Использование case of delphi и получил лучший ответ
Ответ от Џков Хрущанский[гуру]
type TStrArray = array [1..3] of string; const str1 = \'First\'; str2 = \'Second\'; str3 = \'Third\'; procedure TForm1.Button1Click(Sender: TObject); var testCase: TStrArray; i: Integer; begin testCase[1] := str1; testCase[2] := str2; testCase[3] := str3; for i := 1 to Length(testCase) do case i of 1: ShowMessage(testCase[1]); 2: ShowMessage(testCase[2]); 3: ShowMessage(testCase[3]); end; end;
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Использование case of delphi
спросили в Пехов
Вопрос по Delphi 7. Решил разобраться с case
Case-работает аналогично оператору If
пример
Код:
i:byte;
i:=1;
Вопрос по Delphi 7. Решил разобраться с case
Case-работает аналогично оператору If
пример
Код:
i:byte;
i:=1;
спросили в Inheritance VRR
помогите с созданием калькулятора в delphi...
Можешь просто:
/ процедура обработки события KeyPress
procedure Edit1.KeyPress(var
подробнее...
помогите с созданием калькулятора в delphi...
Можешь просто:
/ процедура обработки события KeyPress
procedure Edit1.KeyPress(var
подробнее...
спросили в Delphi Textron
Существуют ли в Delphi стандартные хэш-функции? Например, как MD5 в PHP.
Вот модуль, вычисляющий MD5 в Delphi. Полностью могу прислать по почте. Если надо - пиши ( :-))))
подробнее...
Существуют ли в Delphi стандартные хэш-функции? Например, как MD5 в PHP.
Вот модуль, вычисляющий MD5 в Delphi. Полностью могу прислать по почте. Если надо - пиши ( :-))))
подробнее...
delphi. полная глупость
В операторе case в кач-ве переменной выбора должна быть переменная ordinal (integer, byte, enum
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
Помогите с ImageList в Delphi
Case <страна> of
<america> : Image1.Picture.LoadFromFile('America.jpg');
подробнее...
Проверка Edit в Delphi
Доброго времени суток.
Трудно не зная тонкостей задачи дать вменяемый ответ. Попробую в
подробнее...
спросили в Shadrinsk
Помогите очень срочно!!! Как преобразовать в delphi переменную с типом STRING в CHAR???
Доброго времени суток.
Ну, во-первых, как отметил Сергей, строку можно рассматривать как
подробнее...
Помогите очень срочно!!! Как преобразовать в delphi переменную с типом STRING в CHAR???
Доброго времени суток.
Ну, во-первых, как отметил Сергей, строку можно рассматривать как
подробнее...
спросили в Delphi Styx
Есть ли альтернатива функции switch() для Delphi?
Доброго времени суток.
В Delphi нет switch, там аналогичную функцию выполняет оператор
подробнее...
Есть ли альтернатива функции switch() для Delphi?
Доброго времени суток.
В Delphi нет switch, там аналогичную функцию выполняет оператор
подробнее...
спросили в Delphi Garbage
Где взять Серийный номер для Delphi 2007?
К Delphi 2007 не надо серийника, он ломается пачем. Вот:
===================
D2007Tweaks
подробнее...
Где взять Серийный номер для Delphi 2007?
К Delphi 2007 не надо серийника, он ломается пачем. Вот:
===================
D2007Tweaks
подробнее...
спросили в Бейсик
Помогите, пожалуйста,написать программу для delphi которая писала число прописью...
ну ни так то просто по русски тут надо скланения учитывать если уж совсем круто брать
есть
подробнее...
Помогите, пожалуйста,написать программу для delphi которая писала число прописью...
ну ни так то просто по русски тут надо скланения учитывать если уж совсем круто брать
есть
подробнее...
спросили в Type Moon
как сделать чтобы при нажатии на кнопку выводился заданный текст в Delphi. хелп
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Текст сообшения');
как сделать чтобы при нажатии на кнопку выводился заданный текст в Delphi. хелп
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Текст сообшения');
Delphi. Не работает FindWindowEx.
Чудес не бывает. Обратная совместимость должна быть. Мелкомягкие её обеспечивают для таких
подробнее...
[Delphi] Как правильно удалять строки из TStringList?
попробуй так
for i:=SL.Count-1 downto 0 do
if SL.Strings[i] = 'somestring' { почему
подробнее...