Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Вниз
Вопрос Найти похожие ветки
← →
bondik (2002-11-14 16:03) [0]Можно.как написать в Delphi аналог процедуры Insert, но процедурой Delete и функцией Copy не пользоваться.
В первой строке входа дана подстрока, которая вставляется, во второй строке входа строка, куда вставляется и в третьей строке входа позиция, начиная с которой подстрока будет входить в строку.
← →
Андрей Прокофьев (2002-11-14 16:05) [1]см StrUtols.StuffString
← →
KoluChi (2002-11-14 16:06) [2]Изобретаем велосипед? Можно, по-символьно.
← →
stone (2002-11-14 16:07) [3]а почему нельзя пользовать Copy?
← →
serz (2002-11-14 16:16) [4]так сказано
← →
KoluChi (2002-11-14 16:22) [5]>Андрей Прокофьев © (14.11.02 16:05)
>см StrUtols.StuffString
function StuffString(const AText: string; AStart, ALength: Cardinal;
const ASubText: string): string;
begin
Result := Copy(AText, 1, AStart - 1) +
ASubText +
Copy(AText, AStart + ALength, MaxInt);
end;
Или не тот StrUtils.pas?
← →
NickBat (2002-11-14 16:24) [6]
function MyIns(SubStr, Str: string; Ind: integer): string;
var
ii: integer;
begin
Result:="";
for ii:=1 to Length(Str) do
begin
if ii<>Ind
then Result:=Result+Str[ii]
else Result:=Result+Substr;
end;
end;
Ну и по-хорошему вставить проверку на корректность позиции в строке куда вставлять (чтоб не больше длины строки).
← →
Игорь Шевченко (2002-11-14 16:24) [7]bondik (14.11.02 16:03)
Можно, только откуда взялись такие условия ?
← →
Skier (2002-11-14 16:25) [8]>Игорь Шевченко
От преподавателя... :))
← →
Reindeer Moss Eater (2002-11-14 16:33) [9]StrNew + StrCopy,StrPCopy or Move
← →
Андрей Прокофьев (2002-11-14 16:34) [10]Что-то в этом роде:
procedure MyInsert(const SubStr : String; var Str : String; const Index : Integer);
var L : Integer;
begin
L := Length(SubStr);
SetLength(Str, Length(Str)+ L);
Move(Str[Index], Str[Index+L], L);
Move(SubStr[1], Str[Index], L);
end;
← →
Игорь Шевченко (2002-11-14 16:39) [11]Skier © (14.11.02 16:25)
Тогда я пас - учиться всегда нужно самому :-)
С уважением,
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c
