/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 426
от 28.03.2006, 02:05

Вопрос № 38.178

Уважаемые, эксперты! Кто-нибудь знает какой-нибудь бесплатный компонент для построения древовидной, иерархической структуры. Как, например, реализовано при построении гениалогического дерева, или например структура пирамиды... Очень нужно. Заранее огромное Вам спасибо.

Отправлен: 22.03.2006, 07:35 Вопрос задал: xXx (статус: 5-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry Здравствуйте, xXx! В поставке Дельфи, в палитре компонентов, есть компонент TTreeView - и бесплатный, и древовидный. Может быть Вы что-то другое имели в виду? Уточните в таком случае.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 22.03.2006, 08:01

Вопрос № 38.207

День добрый господа "Присяжные и заседатели" Ставилась такая задача: изменить рисунки в Cards.dll и скопировать его обратно. при копировании обратно в папку system32 старая Dll восстанавливалась из кэша а при удалении ее от туда выскакивало окно что Dllка не родная и просила вставить диск с инсталяхой XP Это копирование я хочу делать из своей инсталяхи написанной на Делфе , от сюда вытекает вопрос как обмануть винды (они же такие глупые) чтоб не пугать конечных пользователей измененной библиотеки непонятными и с виду опасными (для них) окошками Вопрос может и не сюда но надеюсь кто поможет Заранее спасибо

Отправлен: 22.03.2006, 12:52 Вопрос задал: Миронов Алексей Игоревич (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Diman_A Здравствуйте, Миронов Алексей Игоревич! Для этого нужно отключить System Files Protection (SFC). Сделать это можно в реестре: HKLMSOFTWAREMicrosoftWindows NTCurrentVersionWinlogon SfcDisable (тип DWORD), параметр может принимать различные значения, например, утилита XP Tweaker для отключения SFC ставит значение hex:ffffff9d (4294967197) или 0 для включения. Если не знаешь, как записывать инфу в реестр, пиши во внутреннюю почту.

Ответ отправил: Diman_A (статус: 8-ой класс) Ответ отправлен: 22.03.2006, 15:37 Оценка за ответ: 5 Комментарий оценки: Должно помочь чтото вроде этого и искал делать буд так 1. Отключаю SFC 2. Пишу файлы 3. Восстанавливаю старое значение Спасибо

Отвечает: nimoid Здравствуйте, Миронов Алексей Игоревич! Еще как вариант можно попробовать заменять сразу 2 файла - один твой, а другой вот тут - C:WINDOWSsystem32dllcache --------- Пишем баги на любые патчи :-]

Ответ отправил: nimoid (статус: 7-ой класс) Ответ отправлен: 23.03.2006, 08:23

Вопрос № 38.216

Здраствуй народ. Пользуюсь TJvDateEdit. Как отследить изменение даты, когда она выбрана из календаря?

Отправлен: 22.03.2006, 14:18 Вопрос задал: Карасев Алексей Александрович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ерёмин Андрей Здравствуйте, Карасев Алексей Александрович! Честно говоря, не вдумывался, но это либо событие OnAcceptDate(), либо OnChange(). Проверить можно экспериментально. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 22.03.2006, 17:19

Вопрос № 38.238

Доброе время суток Не могли бы Вы помочь мне со следущей програмкой У меня задание: На кнопке(которая на форме) щелчок при этом - форма закрашивается случайным цветом Так вот мне наобходимо использовать randomize??? Если да то как поместить туда цвета? Благодарю!

Отправлен: 22.03.2006, 18:01 Вопрос задал: Sexy (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ataman N. N. Здравствуйте, Sexy! Можно так ---------------- randomize; Form1.Color := Random(16777215);//16777215 - максимальный (белый) цвет ----------------------------- или так --------------------- var R, G, B: Byte; begin randomize; R := Random(255); G := Random(255); B := Random(255); Form1.Color := RGB(R, G, B); end;

Ответ отправил: Ataman N. N. (статус: 10-ый класс) Ответ отправлен: 22.03.2006, 18:54

Отвечает: Leshiy2006 Здравствуйте, Sexy! Примерно так: Randomize; Form1.Color:=RGB(random(255),random(255),random(255));

Ответ отправил: Leshiy2006 (статус: 5-ый класс) Ответ отправлен: 22.03.2006, 22:34

Отвечает: Malysh Здравствуйте, Sexy! Как известно существует формат передачи цветов RGB. Т. е. он состоит из трех состовляющих красный, зеленый и синий. Каждая из этих состовляющих лежит в пределах 0..255. Поэтому логично делать три случайных состовляющих а потом делать Color:=RGB(r,g,b), где r,g,b-случайные в пределах 0..255.

Ответ отправил: Malysh (статус: Студент) Ответ отправлен: 23.03.2006, 00:04

Отвечает: sir henry Здравствуйте, Sexy! В randomize цвет поместить нельзя, эта процедура всего-лишь запускает генератор псевдослучайных чисел. Можно использовать этот генератор для выбора случайного цвета: Randomize; {Запускаем генератор} r := Random(255); {Генерируем красную компоненту цвета в пределах 0..255} g := Random(255); {Генерируем зеленую компоненту цвета в пределах 0..255} b := Random(255); {Генерируем голубую компоненту цвета в пределах 0..255} Form1.Color := RGB(r, g, b); {Формируем цвет формы на основе этих трех компонент}

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 23.03.2006, 06:20

Отвечает: Lexus Здравствуйте, Sexy! procedure TForm1.Button1Click(Sender: TObject); begin randomize; form1.color:=rgb(random(256),random(256),random(256)); end; Для задания цвета используется функция RGB которая "собирает" цвет из состовляющих: красного, зеленого, синего. Значения могут быть от 0 до 255. В данном случае случайные числа из этого диапозона

Ответ отправил: Lexus (статус: 2-ой класс) Ответ отправлен: 23.03.2006, 06:24

Вопрос № 38.239

Здравствуйте уважаемые эксперты! Я хотел бы узнать как наибыстрейшим способом осуществить поиск строки в текстовом файле, содержащим около 240000 слов. Я пробовал перебором, но если строка находится в конце файла то это занимает минимум секунд 5. Не подскажите какой-нибудь быстрый и рабочий код.

Отправлен: 22.03.2006, 18:24 Вопрос задал: Yxo (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лучников Ю.В. Здравствуйте, Yxo! Если вы работаете с собственным текстовым файлом (какая либо текстовая БД), то для начала было бы неплохо структурировать данные для более оптимального поиска. Статьи по структурам данных вы можете найти здесь. По поиску вам пригодятся соответствующие алгоритмы. Их реализации с описанием вы можете найти здесь. Успехов!

Ответ отправил: Лучников Ю.В. (статус: Практикант) Ответ отправлен: 22.03.2006, 19:27

Отвечает: Cheater76 Здравствуйте, Yxo! Посмотри ссылочку может что поможет http://www.delphirus.com.ru/modules.php?name=Pages&pa=showpage&pid=749

Ответ отправил: Cheater76 (статус: 3-ий класс) Ответ отправлен: 22.03.2006, 19:33

Отвечает: sir henry Здравствуйте, Yxo! Дело в том, что если Вы используете однократый поиск, то никакого более быстрого способа, чем перебор слов не существует в принципе. Если же Ваш поиск повторяется неоднократно, то здесь уже можно получить довольно значительный выигрыщ по времени, за счет того, что при первом поиске все слова, содержащиеся в файле, индексируются и уже повторный поиск проводится не в файле. а в индексе, а поскольку индекс будет выстроен скажем по алфавиту,слово Вы найдете очень быстро.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 23.03.2006, 06:30

Вопрос № 38.251

Здравствуйте. К сожаленю я так и не получил ответ на свой вопрос...но я попробую взять измором :) Так вот, я написал программу-тест, она читает вопросы из файла, причем файл устроен так 1 строка - сам вопрос 2 строка - 1 вариант ответа 3 строка - 2 вариант ответа 4 строка - номер правильного варинта ответа ........и так весь файл У меня в программе досадный баг - если пользователь прошел тест до конца(а в первый раз он почемуто проходится до конца), то запустив тест снова он проходит до предпоследнего вопроса, а на последнем вопросе виснет... Я уже замучился листать код...немогу увидеть видимо очевидную ошибку...помогите пожалуйста. Выкладываю головной модуль(на всякий случай) и модуль где реализован сам тест - в нем и ошибка (кажется в процедуре read_file - т.к. меняя значение i на i -1 тест работает, только последний вопрос естественно не читается). Приложение: unit uMenu; // головной модуль interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, ComCtrls; type TfmMenu = class(TForm) MainMenu1: TMainMenu; StartTest: TMenuItem; Theme: TMenuItem; Facts: TMenuItem; Russian: TMenuItem; Help: TMenuItem; About: TMenuItem; Source: TMenuItem; Exit: TMenuItem; Panel1: TPanel; Image1: TImage; mmHello: TMemo; Capitals: TMenuItem; procedure ExitClick(Sender: TObject); procedure AboutClick(Sender: TObject); procedure HelpClick(Sender: TObject); procedure CapitalsClick(Sender: TObject); procedure FactsClick(Sender: TObject); procedure RussianClick(Sender: TObject); procedure SourceClick(Sender: TObject); procedure StartTestClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var fmMenu: TfmMenu; FileName:String; implementation uses uAbout, uHelp, uSource, uTest; {$R *.dfm} procedure TfmMenu.ExitClick(Sender: TObject); begin Close; end; procedure TfmMenu.AboutClick(Sender: TObject); begin fmAbout.Show; end; procedure TfmMenu.HelpClick(Sender: TObject); begin fmHelp.Show; end; procedure TfmMenu.CapitalsClick(Sender: TObject); begin if Capitals.Checked=false then begin Capitals.Checked:=true; FileName:='Capitals.txt'; Facts.Checked:=false; Russian.Checked:=false; end; end; procedure TfmMenu.FactsClick(Sender: TObject); begin if Facts.Checked=false then begin Facts.Checked:=true; FileName:='Facts.txt'; Capitals.Checked:=false; Russian.Checked:=false; end; end; procedure TfmMenu.RussianClick(Sender: TObject); begin if Russian.Checked=false then begin Russian.Checked:=true; FileName:='Russian.txt'; Facts.Checked:=false; Capitals.Checked:=false; end; end; procedure TfmMenu.SourceClick(Sender: TObject); begin fmSource.Show; end; procedure TfmMenu.StartTestClick(Sender: TObject); begin fmTest.Show; end; procedure TfmMenu.FormCreate(Sender: TObject); begin FileName:='Capitals.txt'; end; end. unit uTest; // а вот здесь ошибка interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, Mask, Gauges; type TfmTest = class(TForm) Panel1: TPanel; Memo1: TMemo; Button1: TButton; Gauge1: TGauge; LabeledEdit1: TLabeledEdit; Label1: TLabel; Timer1: TTimer; Timer2: TTimer; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure LabeledEdit1Change(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var fmTest: TfmTest; implementation Uses uMenu; var i,k,counter,true_answer:Integer; f:TextFile; a:array[0..50] of Integer; question_counter,quest,ans1,ans2:String; ans:String[1]; procedure free_mem; var m:Integer; begin for m:=1 to 50 do a[m]:=0; i:=0;//будущее число вопросов k:=0; true_answer:=0;//число верных ответов пользователя counter:=0;//счетчик прохода по вопросам question_counter:=''; fmTest.Label1.Caption:=''; fmTest.Gauge1.Progress:=0; if FileExists('help.txt') then fmTest.Memo1.Lines.LoadFromFile('help.txt') else ShowMessage('Не найден файл help.txt'); end; function answer_test:Boolean; var S:String[255]; begin Result:=true; S:=fmTest.LabeledEdit1.Text; if not(S[1]=ans[1]) then Result:=false; end; procedure read_in_memo; begin Readln(f,quest); Readln(f,ans1); Readln(f,ans2); Readln(f,ans); fmTest.Memo1.Lines.Add(quest); fmTest.Memo1.Lines.Add(ans1); fmTest.Memo1.Lines.Add(ans2); end; procedure end_test; var S:String; begin fmTest.Timer1.Enabled:=False; fmTest.Timer2.Enabled:=False; S:=FloatToStr(true_answer/i*100); Delete(S,5,Length(s)-5); ShowMessage('Ваш результат: '+S+'% ('+IntToStr(true_answer)+' èç '+IntToStr(i)+')'); CloseFile(f); free_mem; fmTest.Close; end; procedure get_element; var m,p:Integer; begin p:=0; CloseFile(f); Reset(f); m:=random(i); while a[m]=1 do m:=random(i); a[m]:=1; while p < (m*4) do begin Readln(f); p:=p+1; end; end; procedure open_file; begin if not FileExists(FileName) then begin ShowMessage('Невозможно открыть файл '+ FileName); fmTest.Close; end; AssignFile(f,FileName); Reset(f); while not EOF(f) do begin Readln(f); i:=i+1; end; i:=i div 4; get_element; read_in_memo; question_counter:=' èç '+IntToStr(i); fmTest.Timer2.Enabled:=True; fmTest.Timer1.Enabled:=True; k:=1; end; procedure read_fail; begin if counter <=i then begin get_element; read_in_memo; end else end_test; end; {$R *.dfm} procedure TfmTest.FormCreate(Sender: TObject); begin randomize; free_mem; end; procedure TfmTest.Button1Click(Sender: TObject); begin counter:=counter+1; if (counter>1)and(counter<=i+1) then if answer_test then inc(true_answer); if fmTest.LabeledEdit1.CanFocus then begin fmTest.LabeledEdit1.Clear; fmTest.LabeledEdit1.SetFocus; end; Memo1.Lines.Clear; if k=0 then open_file else read_fail; if counter>=1 then Label1.Caption:=IntToStr(counter)+question_counter; end; procedure TfmTest.LabeledEdit1Change(Sender: TObject); begin if fmTest.Button1.CanFocus then fmTest.Button1.SetFocus; end; procedure TfmTest.Timer1Timer(Sender: TObject); begin end_test; end; procedure TfmTest.Timer2Timer(Sender: TObject); begin fmTest.Gauge1.AddProgress(1); end; procedure TfmTest.FormClose(Sender: TObject; var Action: TCloseAction); begin free_mem; end; end.

Отправлен: 22.03.2006, 20:43 Вопрос задал: Denton (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: sir henry Здравствуйте, Denton! Я сильно извиняюсь, если мой ответ Вам покажеться не совсем в тему, но почему Вы упорно отказываетесь использовать таблицу базы данных? Тогда бы реализация Вашей задачи превротилась бы в сплошное наслаждение. Судите сами: - количество строк в таблице равно количеству вопросов. При этом никаких дополнительных расчетов, чтобы отделить вопрос от ответа не надо; - каждая строка таблицы делится на 4 столбца - вопрос, 1-ый вариант ответа, 2-ой вариант ответа, правильный ответ. Каждый выводится в собственном окошке; - чтобы выбирать случайным образом вопрос, понадобится очень простая конструкция - Random(Количество_строк_в_таблице); - можно завести специальную колонку в таблице, где ставить пометку, выбирался такой вопрос или еще нет; - соответственно в еще одной колонке или даже отдельной таблице можно хранить оценки за ответы, а потмо анализировать их на предмет повышения или понижения уровня знаний.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 23.03.2006, 07:25

Отвечает: Zubex Здравствуйте, Denton! Очевидная ошибка у Вас в том, что инициализацию массива нулями вы делаете с единицы, а не с нуля... Поэтому нулевой элемент массива у вас остается единицей, в последующем из-за этого Вы попадаете в бесконечный цикл в get_element (while a[m]=1 do m:=random(i);) Как будущий программист учитесь массив считать с нуля... Удачи! PS. Времени мало, но кой чего я поправил и вышлю на мыло --------- Если не знаешь что сказать - лучше промолчи...

Ответ отправил: Zubex (статус: 6-ой класс) Ответ отправлен: 23.03.2006, 11:13

Вопрос № 38.254

ПОмогите чем можете... Код программы, ссылки или прочее, что может мне помочь в создании и кодировке алгоритма игры "Крестики-Нолики" на поле больше чем 3 на 3... Тоесть неплохо былобы мне организовать алгоритм который будет эмулировать искуственный интелект играющего в эту игру.... Вот собственно и все просьба. Спасибо за внимание!

Отправлен: 22.03.2006, 21:18 Вопрос задал: Пизний Владимир Владимирович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Евгения Здравствуйте, Пизний Владимир Владимирович! http://kvant.mccme.ru/1994/01/krestiki_i_noliki.htm http://program.rin.ru/razdel/html/960-1.html

Ответ отправила: Евгения (статус: 2-ой класс) Ответ отправлен: 22.03.2006, 22:06

Отвечает: Malysh Здравствуйте, Пизний Владимир Владимирович! Я когда-то писал подобную простенькую прогу на С++, когда учился. Ее скоре всего надо доделать. Но она работает. Попробуй перевести в Delphi, думаю это бедет не сложно. Приложение: #include <iostream.h> #include <stdlib.h> #include <time.h> #include <math.h> //---------------------- template <typename T> void Xod_Komp(T &Pole, int Size, int &flag); template <typename T> void Xod_Chel(T &Pole, int Size, int &flag); template <typename T> void Vivod(T &Pole, int Size); template <typename T> void Sozdanie_Pole(T &Pole, int Size); template <typename T> void Sravnenie(T &Pole, int Size); void Flag_Sr(int &flag_game, int Size, int hoo); void main() { const int Size=4; int flag=0; char Pole[Size][Size]; srand(time(0)); Sozdanie_Pole(Pole, Size); Vivod(Pole, Size); while (flag<pow((Size-1),2)) { Xod_Komp(Pole, Size, flag); system("cls"); Vivod(Pole, Size); Sravnenie(Pole, Size); if (flag<pow((Size-1),2)) Xod_Chel(Pole, Size, flag); system("cls"); Vivod(Pole, Size); Sravnenie(Pole, Size); cout << flag << endl; } cout << "Konec igri" << endl; } template <typename T> void Vivod(T &Pole, int Size) { for (int i=0 ; i<Size ; i++) { for (int j=0 ; j<Size ; j++) cout << Pole[i][j] << " "; cout << endl << endl; } } template <typename T> void Sozdanie_Pole(T &Pole, int Size) { int i, j; for (i=0 ; i<Size ; i++) { Pole[0][i]=i+48; Pole[i][0]=i+48; } for (i=1 ; i<Size ; i++) for (j=1 ; j<Size ; j++) Pole[i][j]=' '; } template <typename T> void Xod_Komp(T &Pole, int Size, int &flag) { int i=rand()%(Size-1)+1; int j=rand()%(Size-1)+1; if (Pole[i][j]==' ') { Pole[i][j]='O'; flag++; } else Xod_Komp(Pole, Size, flag); } template <typename T> void Xod_Chel(T &Pole, int Size, int &flag) { int gor, ver; cout << "Vvedite koordinatu po gorizontali :"; cin >> gor; cout << "Vvedite koordinatu po vertikali :"; cin >> ver; if ((ver>0 || ver<Size) && (gor>0 || gor<Size)) if (Pole[gor][ver]==' ') { Pole[gor][ver]='X'; flag++; } else Xod_Chel(Pole, Size, flag); } void Flag_Sr(int &flag_game, int Size, int hoo) { if (flag_game==(Size-1)) { if (hoo==0) cout << "Win komp!" << endl; else cout << "You WIN!!!" << endl; exit(1); } flag_game=0; } template <typename T> void Sravnenie(T &Pole, int Size) { int flag_game=0, i, j, hoo=0; for (i=1 ; i<Size ; i++) { for (j=1 ; j<Size ; j++) if (Pole[i][j]=='O') flag_game++; Flag_Sr(flag_game, Size, hoo); } for (i=1 ; i<Size ; i++) { for (j=1 ; j<Size ; j++) if (Pole[j][i]=='O') flag_game++; Flag_Sr(flag_game, Size, hoo); } for (i=1 ; i<Size ; i++) if (Pole[i][i]=='O') flag_game++; Flag_Sr(flag_game, Size, hoo); for (i=1 ; i<Size ; i++) if (Pole[i][Size-i]=='O') flag_game++; Flag_Sr(flag_game, Size, hoo); hoo=1; for (i=1 ; i<Size ; i++) { for (j=1 ; j<Size ; j++) if (Pole[i][j]=='X') flag_game++; Flag_Sr(flag_game, Size, hoo); } for (i=1 ; i<Size ; i++) { for (j=1 ; j<Size ; j++) if (Pole[j][i]=='X') flag_game++; Flag_Sr(flag_game, Size, hoo); } for (i=1 ; i<Size ; i++) if (Pole[i][i]=='X') flag_game++; Flag_Sr(flag_game, Size, hoo); for (i=1 ; i<Size ; i++) if (Pole[i][Size-i]=='X') flag_game++; Flag_Sr(flag_game, Size, hoo); }

Ответ отправил: Malysh (статус: Студент) Ответ отправлен: 22.03.2006, 23:51

Вопрос № 38.259

Значит есть такой простенький вопрос. Хотелось бы прочитать подробное описание функции copy... Дело в том, что мне необходимо строку вида например '123 455..n', где неопределнное количество символов n, преобразовать на выходе в две переменные s:='123' и s2:='455'. Вроде делаю с первым s, работает, а вот пробую получить s2 и у меня выходит ' 455'. Помогите плиз.

Отправлен: 22.03.2006, 22:24 Вопрос задал: CJ (статус: Практикант) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Jadd Здравствуйте, CJ! Хорошо бы еще код в студию. Просто возьмите и сделайте s := Trim(s) и s2 := Trim(s2); это уберет лишние пробелы. --------- Если в сердце дверь закрыта, нужно в печень постучаться

Ответ отправил: Jadd (статус: Специалист) Ответ отправлен: 22.03.2006, 22:35

Отвечает: sir henry Здравствуйте, CJ! Пробел убирается функцией Trim(), а вообще надо опимизировать определение первого символа искомой подстроки, вот и все.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 23.03.2006, 06:33

Отвечает: Diman_A Здравствуйте, CJ! Вот описание ф-ии copy: ------------------------------------------------------------ Функция Copy ------------------------------------------------------------ Функция: Возвращает для строки подстроку. Описание: Соpy(s : string; индекс : integer; счетчик : integer) Тип результата: Строковый (string). Примечания: Параметр s - выражение строкового типа. Па-раметры "индекс" и "счетчик" являются выражениями целого типа. Функция Соpy возвращает строку, число символов которой соответствует параметру "счетчик" и которая начинается с символа строки s, номер которого задан параметром "индекс". Если значение параметра "индекс" превышает длину строки, то возвращается пустая строка. Если параметр "счетчик" задает больше символов, чем остается в строке, начиная с символа "индекс", то возвращается только остаток строки. Пример: var s : string; begin s := 'ABCDEF'; s := Copy(s,2,3) { 'BCD' } end.

Ответ отправил: Diman_A (статус: 8-ой класс) Ответ отправлен: 23.03.2006, 10:26

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.20 (beta) от 17.03.2006