forum.boolean.name - Переменная типа String

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Переменная типа String (http://forum.boolean.name/showthread.php?t=18825)

S_007

31.12.2013 17:33

Переменная типа String

Ребята подскажите как очистить переменную типа String?
И ещё, научите разбивать проект на несколько файлов, например в одном файле какая-то процедура или функция в другом другая и т.д., но чтобы они были видны и вызывались с основного файла проекта, как это делается в паскале? Читать книги по паскалю некогда, ктонибудь покажите на каком нибудь маленьком примере
За ранее благодарен за ответы!
Всех с наступающим Новым Годом!

Vasiliy_LiGHT

05.01.2014 01:27

Ответ: Переменная типа String

Присвой пустую строку

про разбиение придется посмотреть примеры из третьей версии (файлы .inc)
товарищ советовал, самому интересно

S_007

07.01.2014 21:12

Ответ: Переменная типа String

Спасибо Vasiliy_LiGHT! У меня как раз стоит 3.3 версия, а где файлы .inc я не нашел. Прочитал что в Делфи файлы вызываются в основной файл проекта при помощи uses, в MidletPaskale таким же uses вызываются либы, ничо не пойму... в какиой папке проекта должны лежать файлы с функциями или процедурами?, добавлять их как ресурс? Неужели никто в MidletPaskale так не делал?

Helltar

08.01.2014 01:46

Ответ: Переменная типа 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 вызываются либы, ничо не пойму

И модули тоже. В общем, кури мануалы, дабы познать элементарное.

S_007

08.01.2014 13:11

Ответ: Переменная типа String

в том то и дело что некогда курить мануалы...
спасибо Helltar! хоть немного теперь понял, буду пробовать...
эти файлы .inc как создавать, в блокноте? и ложить в папку src проекта, так?

S_007

08.01.2014 15:13

Ответ: Переменная типа String

ребята, разобрался! Спасибо Helltar, за пример! Раньше писал программы в одном файле, трудно было искать нужную функцию, а теперь могу хоть каждую функцию убрать в отдельный файл, как же это удобно..! Единственный недостаток - дольше компилируется...
Всем Спасибо!

S_007

11.01.2014 03:24

Ответ: Переменная типа String

помогите ещё пожалуйста
к примеру есть строка:

a:String;
b:String;

a := 'Привет мир!'

каой функцией вытащить из неё нужные символы и поместить в другую строку чтобы получилось к примеру только

b:='мир!'

Helltar

11.01.2014 11:10

Ответ: Переменная типа String

S_007, чувак, ты хочешь что-то написать, не читая справки?
Проще открывать маленький .chm файл с функциями, или каждый раз идти на форум, и ждать ответа?

Код:

var

  a, b: string;



begin

  a := 'Привет, мир!';

  b := Copy(a, 8, 12);

  DrawText(b, 0, 0);

  Repaint;

  Delay(5000);

end.

S_007

11.01.2014 14:55

Ответ: Переменная типа String

Helltar, Спасибо!!! Где-же в спаравке найдешь такой пример как у тебя? За что я тебе очень благодарен! Вот сейчас залез в справку и увидел всего две строчки с описанием, конечно после твоего примера мне стало понятно, а до этого мог бы сто раз бы смотреть на эту функцию, но не знать как её реально применить... Наверно те кто писал справку считали что паскаль дается Богом сразу при рождении, но увы я наверно когда всем раздавали, где-то замолаживался с тёлками...

S_007

23.01.2014 17:57

Ответ: Переменная типа String

Ребята подскажите как сделать грамотно:
такой пример

year:integer:
year := GetYear(time);
DrawText(''+year, 77, 103);

в переменую year записывается значение, к примеру текушего года - 2014
как правильно сделать чтоб в переменной year оставалось только - 14
и отрабатывалось условие если кто-то поставит 1980, чтоб оставалось только - 80, или 3020, чтоб оставалось только 20 и т.д.
Какие есть варианты?
За ранее благодарен за Ваши ответы!

Amigo888

24.01.2014 20:56

Ответ: Переменная типа 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.

Amigo888

24.01.2014 21:01

Ответ: Переменная типа String

Ну и самый правильный вариант поступить так:

PHP код:




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.

Часовой пояс GMT +4, время: 14:38.