|
Основной форум Сюда все проблемы связанные с программированием. |
31.12.2013, 17:33
|
#1
|
Нуждающийся
Регистрация: 30.01.2011
Сообщений: 76
Написано одно полезное сообщение (для 7 участников)
|
Переменная типа String
Ребята подскажите как очистить переменную типа String?
И ещё, научите разбивать проект на несколько файлов, например в одном файле какая-то процедура или функция в другом другая и т.д., но чтобы они были видны и вызывались с основного файла проекта, как это делается в паскале? Читать книги по паскалю некогда, ктонибудь покажите на каком нибудь маленьком примере
За ранее благодарен за ответы!
Всех с наступающим Новым Годом!
|
(Offline)
|
|
05.01.2014, 01:27
|
#2
|
Оператор ЭВМ
Регистрация: 05.08.2013
Сообщений: 26
Написано 2 полезных сообщений (для 2 пользователей)
|
Ответ: Переменная типа String
Присвой пустую строку
про разбиение придется посмотреть примеры из третьей версии (файлы .inc)
товарищ советовал, самому интересно
|
(Offline)
|
|
07.01.2014, 21:12
|
#3
|
Нуждающийся
Регистрация: 30.01.2011
Сообщений: 76
Написано одно полезное сообщение (для 7 участников)
|
Ответ: Переменная типа String
Спасибо Vasiliy_LiGHT! У меня как раз стоит 3.3 версия, а где файлы .inc я не нашел. Прочитал что в Делфи файлы вызываются в основной файл проекта при помощи uses, в MidletPaskale таким же uses вызываются либы, ничо не пойму... в какиой папке проекта должны лежать файлы с функциями или процедурами?, добавлять их как ресурс? Неужели никто в MidletPaskale так не делал?
|
(Offline)
|
|
08.01.2014, 01:46
|
#4
|
AnyKey`щик
Регистрация: 29.12.2013
Сообщений: 13
Написано 8 полезных сообщений (для 11 пользователей)
|
Ответ: Переменная типа String
S_007, в 3.5 есть пример работы с директивой $I, Помощь -> Примеры -> xyGridDemo
Создаешь файл с нужным содержимым, и подключаешь {$I MyFile.inc}
Пример:
MyFile.inc:
const
s = 'Hello, World!';
i = 50;
Main.mpsrc:
program NewProject;
{$I MyFile.inc}
begin
DrawText(s, i, 0);
Repaint;
Delay(5000);
end.
Прочитал что в Делфи файлы вызываются в основной файл проекта при помощи uses, в MidletPaskale таким же uses вызываются либы, ничо не пойму
|
И модули тоже. В общем, кури мануалы, дабы познать элементарное.
Последний раз редактировалось Helltar, 08.01.2014 в 04:52.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
08.01.2014, 13:11
|
#5
|
Нуждающийся
Регистрация: 30.01.2011
Сообщений: 76
Написано одно полезное сообщение (для 7 участников)
|
Ответ: Переменная типа String
в том то и дело что некогда курить мануалы...
спасибо Helltar! хоть немного теперь понял, буду пробовать...
эти файлы .inc как создавать, в блокноте? и ложить в папку src проекта, так?
|
(Offline)
|
|
08.01.2014, 15:13
|
#6
|
Нуждающийся
Регистрация: 30.01.2011
Сообщений: 76
Написано одно полезное сообщение (для 7 участников)
|
Ответ: Переменная типа String
ребята, разобрался! Спасибо Helltar, за пример! Раньше писал программы в одном файле, трудно было искать нужную функцию, а теперь могу хоть каждую функцию убрать в отдельный файл, как же это удобно..! Единственный недостаток - дольше компилируется...
Всем Спасибо!
|
(Offline)
|
|
11.01.2014, 03:24
|
#7
|
Нуждающийся
Регистрация: 30.01.2011
Сообщений: 76
Написано одно полезное сообщение (для 7 участников)
|
Ответ: Переменная типа String
помогите ещё пожалуйста
к примеру есть строка:
a:String;
b:String;
a := 'Привет мир!'
каой функцией вытащить из неё нужные символы и поместить в другую строку чтобы получилось к примеру только
b:='мир!'
|
(Offline)
|
|
11.01.2014, 11:10
|
#8
|
AnyKey`щик
Регистрация: 29.12.2013
Сообщений: 13
Написано 8 полезных сообщений (для 11 пользователей)
|
Ответ: Переменная типа String
S_007, чувак, ты хочешь что-то написать, не читая справки?
Проще открывать маленький .chm файл с функциями, или каждый раз идти на форум, и ждать ответа?
var
a, b: string;
begin
a := 'Привет, мир!';
b := Copy(a, 8, 12);
DrawText(b, 0, 0);
Repaint;
Delay(5000);
end.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
11.01.2014, 14:55
|
#9
|
Нуждающийся
Регистрация: 30.01.2011
Сообщений: 76
Написано одно полезное сообщение (для 7 участников)
|
Ответ: Переменная типа String
Helltar, Спасибо!!! Где-же в спаравке найдешь такой пример как у тебя? За что я тебе очень благодарен! Вот сейчас залез в справку и увидел всего две строчки с описанием, конечно после твоего примера мне стало понятно, а до этого мог бы сто раз бы смотреть на эту функцию, но не знать как её реально применить... Наверно те кто писал справку считали что паскаль дается Богом сразу при рождении, но увы я наверно когда всем раздавали, где-то замолаживался с тёлками...
|
(Offline)
|
|
23.01.2014, 17:57
|
#10
|
Нуждающийся
Регистрация: 30.01.2011
Сообщений: 76
Написано одно полезное сообщение (для 7 участников)
|
Ответ: Переменная типа String
Ребята подскажите как сделать грамотно:
такой пример
year:integer:
year := GetYear(time);
DrawText(''+year, 77, 103);
в переменую year записывается значение, к примеру текушего года - 2014
как правильно сделать чтоб в переменной year оставалось только - 14
и отрабатывалось условие если кто-то поставит 1980, чтоб оставалось только - 80, или 3020, чтоб оставалось только 20 и т.д.
Какие есть варианты?
За ранее благодарен за Ваши ответы!
|
(Offline)
|
|
24.01.2014, 20:56
|
#11
|
Нуждающийся
Регистрация: 05.08.2011
Сообщений: 85
Написано 16 полезных сообщений (для 16 пользователей)
|
Ответ: Переменная типа String
Первый вариант, простой, но не практичный
program NewProject;
var
time:integer;
text: string;
begin
time := getCurrentTime;
text := '' + getYear(time);
DrawText(text, -15, 103);
repaint;
delay(2000);
end.
Второй вариант практичный
program NewProject;
var
time:integer;
text: string;
begin
time := getCurrentTime;
text := '' + getYear(time);
DrawText(text, 15, 103);
setColor(255, 255, 255);
fillRect(15, 103, 14, 14);
repaint;
delay(2000);
end.
|
(Offline)
|
|
24.01.2014, 21:01
|
#12
|
Нуждающийся
Регистрация: 05.08.2011
Сообщений: 85
Написано 16 полезных сообщений (для 16 пользователей)
|
Ответ: Переменная типа String
Ну и самый правильный вариант поступить так:
program NewProject; var time:integer; text: string; b: string; begin time := getCurrentTime; text := '' + getYear(time); b := Copy(text, 2, 4); DrawText(b, 15, 103); repaint; delay(2000); end.
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 13:15.
|