|
Вопрос # 4 867/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
подскажите пожалйста как можно скопировать одну строку в другу без функции copy. что то похожее на вот это:
Приложение: Переключить в обычный режим- function my_copy (S: string; index: integer; count: integer): string;
- var temp_s: string;
- i: integer;
- begin
- temp_s:=' ';
- If count>length(s)-2 then count:=length(s)-2;
- If index<length(s) then
- for i:=1 to count do
- temp_s:=temp_s+s[index+i];
- my_copy:=temp_s;
- end;
 |
Вопрос задала: Синельникова Ирина (статус: Посетитель)
Вопрос отправлен: 28 декабря 2010, 16:39
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Мережников Андрей
Здравствуйте, Синельникова Ирина!
Ваш исправленный код в приложении
Приложение: Переключить в обычный режим- function my_copy (S: string; index: integer; count: integer): string;
- var i: integer;
- begin
-
- if (index>0)and(count>0)and(index<=length(s))
- then begin
- if (index+count-1>length(s))
- then count:=length(s)-index+1;
- for i:=1 to count do
- Result:=Result+s[index+i-1];
- end;
- end;
 |
Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 29 декабря 2010, 05:55
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 28 декабря 2010, 23:23; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 28 декабря 2010, 16:57 [#1]:
Да способов работы с памятью - хренова гора. Тебе это зачем надо-то?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
eclipse (статус: Посетитель), 28 декабря 2010, 22:53 [#2]:
Да тупо с s:= то что тебе нужно!
либо опиши точняк что ткебе надо.
|
|
Ерёмин А.А. (статус: *Администратор), 28 декабря 2010, 23:09 [#3]:
Синельникова Ирина: а что, приведённый код не работает? Я не проверял и не вдумывался, но выглядит похожим на то, что требуется.
|
|
|
eclipse (статус: Посетитель), 28 декабря 2010, 23:23 [#4]:
Ну хорошшо h[i][j]:= xyz; раз уж на топошло.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
