Суббота, 05.10.2024, 09:44 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Anton93, Волк-1024, xXxSh@dowxXx  
If then выполнить код из 20-ти строк
MASДата: Воскресенье, 19.10.2014, 22:35 | Сообщение # 1
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
Привет, как можно это сделать?
if FileExists('C:\12.txt') then
и выполнить код из 20-ти или более строк, с разными функциями


За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)

Сообщение отредактировал MAS - Воскресенье, 19.10.2014, 22:38
 
ramzeswrДата: Понедельник, 20.10.2014, 14:29 | Сообщение # 2
Участник
Зарегистрирован: 17.04.2013
Группа: Пользователи
Сообщений: 61
Статус: Offline
if FileExists('C:\12.txt') then
begin
c
ю
д
а

к
о
д

end;
 
dolphinДата: Понедельник, 20.10.2014, 16:02 | Сообщение # 3
Администратор
Сообщений: 906
Статус: Offline
var
i : integer

begin
for i:= 0 to 19 do
begin
if i = 0 then
команда
if i = 1 then
команда
...
end;

Я правильно понял?


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
MASДата: Понедельник, 20.10.2014, 16:28 | Сообщение # 4
Участник
Зарегистрирован: 16.08.2013
Группа: Пользователи
Сообщений: 67
Статус: Offline
Цитата dolphin ()
Я правильно понял?

почти, я хотел выполнить вот так т.к я не знаю и в инете не нашел как:



За одну ночь нельзя изменить свою жизнь, но за одну ночь можно изменить мысли которые изменят твою жизнь. (MAS)

Сообщение отредактировал MAS - Понедельник, 20.10.2014, 16:30
 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz