Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

в rxlib есть ф-ция ReplaceStr, есть ли аналог в самом Delphi

DelphiLexx © (2008-09-03 11:03:00)
Скажите, пожалуйста, есть ли аналог ф-ции ReplaceStr из библиотеки rxlib в самом Delphi

koha! (2008-09-08 20:05:00) [1]

> Palladin © (08.09.08 19:28) [15]
> ай спасибо, что бы я без тебя делал... )а теперь внимательно
> читаем вопрос и правильно воспринимаем мой пост.

Наверно, я думал, что не плохо было бы ссылки кидать, когда отвечаешь, ведь там уже все расписано, но видимо написал совсем другое, мда странно.... :-)

Palladin (2008-09-08 19:28:00) [2]
ай спасибо, что бы я без тебя делал... )
а теперь внимательно читаем вопрос и правильно воспринимаем мой пост.

koha! (2008-09-08 19:25:00) [3]

> Palladin © (03.09.08 11:10) [3]
> я не помню что она делает, но видимо то же, что и StringReplace
> из Delphi6 и выше...

http://www.delphibasics.ru/StringReplace.php
между прочим классный ресурс.

анонимъ (2008-09-05 17:57:00) [4]
> Palladin © (03.09.08 11:16) [5]

в D5 точно уже присутствует.

Германн (2008-09-03 13:42:00) [5]

> Palladin © (03.09.08 11:10) [3]
>
> я не помню что она делает, но видимо то же, что и StringReplace
> из Delphi6 и выше...
>

То же самое, но StringReplace поддерживает Multibyte characters и флаги rfReplaceAll и rfIgnoreCase. А так почти один в один взято из RxLib.

Anatoly Podgoretsky (2008-09-03 12:31:00) [6]
> Palladin (03.09.2008 11:54:09) [9]

Вероятно, поскольку к версия Дельфи не имеет отношение, внутрее, просто включили в библиотеку, что бы не плодить и не переделывать программы. По истории создания библиотеки похоже.

Vlad Oshin (2008-09-03 12:03:00) [7]
можно чтоб писать меньше, псевдоним, типа
procedure TForm1.Button1Click(Sender: TObject);
type
Tmy1=record
i:integer;
end;

var
a1:tmy1;

function FunctionForCompareToZeroConstantValueAndReplaceItIfTrue:tmy1;
begin
if a1.i=0 then result.i:=1 else result.i:=0;
end;

function F: tmy1;
begin
Result := FunctionForCompareToZeroConstantValueAndReplaceItIfTrue;
end;

begin
a1.i:=0;
ShowMessage(inttostr(f.i));
a1.i:=3;
ShowMessage(inttostr(f.i));
end;

Palladin (2008-09-03 11:54:00) [8]
Ничего тут странного нет :) Просто когда-то была своя реализация... А рефакторинг делать лень :)

brother (2008-09-03 11:44:00) [9]
> function FuncX: tip;
> begin
> Result := FuncY;
> end;

О_о

Anatoly Podgoretsky (2008-09-03 11:38:00) [10]
> brother (03.09.2008 11:07:01) [1]

Вопрос сложный, например в RX есть такие функции

function FuncX: tip; begin Result := FuncY; end;

DelphiLexx (2008-09-03 11:32:00) [11]
спасибо

Palladin (2008-09-03 11:16:00) [12]
[1] потому что StringReplace появилась начиная с D6. RxLib же куда раньше...

brother (2008-09-03 11:14:00) [13]
если ReplaceStr = StringReplace, то ReplaceStr наверное имеет приимущества ибо [1]

Vlad Oshin (2008-09-03 11:10:00) [14]

> ReplaceStr

а чего она делает?

в SysUtils есть
function StringReplace(const S, OldPattern, NewPattern: string;
Flags: TReplaceFlags): string;

Palladin (2008-09-03 11:10:00) [15]
я не помню что она делает, но видимо то же, что и StringReplace из Delphi6 и выше...

brother (2008-09-03 11:07:00) [16]
видимо нет, ибо зачем ее реализовывали тогда в rxlib?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »