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

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

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

Строковые функции [D6, XP]

Страницы: < 1 2
n_sch © (2008-06-04 12:01:00)
Добрый день! Уважаемые мастера, помогите разобраться со строками есть текстовый файл примерно с таким содержанием (только гораздо больше):
18000 42306810840376102057 ХОРЕВА ЗИНАИДА МИХАЙЛОВНА
1539990 42306810840376103067 Иванов ПЕТР ВАСИЛЬЕВИЧ

надо вместо пробелов вставить символ '|' , мои жалкие попытки типа:
var
z,y:integer;
stroka:string;
begin
y:=Pos((stroka),Char(' '));
for z:=y to Length(stroka) do begin
if stroka[z]=' ' then begin
insert('|',stroka,z);

ни к чему хорошему не приводят.... Подскажите пожалуйста, как вообще можно в этом случае использовать Pos и Insert и если можно хоть какой нибудь кусок кода, а то в Делфевом хелпе ну уж совсем какой то простой пример про Insert.
Заранее спасибо!

n_sch (2008-06-04 12:25:00) [21]

> Если пробел один и надо заменить на один | то зачем какие
> то pos insert?
> А StringReplace работает очень медленно.
>
> for z := 1 to Length(Stroka) do
> if Stroka[z] = ' ' then Stroka[z] := '|';

С этим в принципе все ястно, я примерно так и начинал, я вхожу в "ступор" когда из исходной строки с пробелами надо сохранить строку с '|' в какую нибудь переменную, если можно подскажите......

Рамиль (2008-06-04 12:10:00) [22]
А если так хочется воспользоваться именно Insert, то еще надо сделать Delete.
> а то в Делфевом хелпе ну уж совсем какой то простой пример
> про Insert.

А как там сложный пример сделать? Там и примера никакого не надо.

Рамиль (2008-06-04 12:08:00) [23]
Если пробел один и надо заменить на один | то зачем какие то pos insert?
А StringReplace работает очень медленно.

for z := 1 to Length(Stroka) do
if Stroka[z] = ' ' then Stroka[z] := '|';

Ega23 (2008-06-04 12:04:00) [24]
StringReplace + F1

Страницы: < 1 2

Наверх

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