Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.27;
Скачать: CL | DM;

Вниз

Как заменить символы в строке   Найти похожие ветки 

 
Charlz ©   (2002-06-17 18:09) [0]

Как заменить символы в строке на заданные по номеру символы строки как здесь:

S := Edit1.Text;
Edit2.Text:= StringReplace(S[1],"a", "_", flags );


но в S[1] указать несколько номеров символов строки
к примеру S[1], S[4], S[7]...
Всю неделю не как не могу догадаться
Я только начал учиться будьте нисходительны :)


 
ATR   (2002-06-17 18:42) [1]

Решений полно
1. Edit2.Text:= StringReplace(Edit1.Text,"a", "_", flags );
2.:))))
Edit2.Text:= StringReplace(Edit1.Text[1],"a", "_", flags );
Edit2.Text:= StringReplace(Edit1.Text[4],"a", "_", flags );
Edit2.Text:= StringReplace(Edit1.Text[7],"a", "_", flags );
Edit2.Text:= StringReplace(Edit1.Text[9],"a", "_", flags );
3.
const temp: array[0..5] of Integer = (1, 3, 5, 7, 10, 12);
var i: Integer;
begin
for i := 0 to 5 do
Edit2.Text := Edit2.Text + StringReplace(Edit1.Text[temp[i]], "a", "_", [rfReplaceAll]);
end;
4. Еще кучу можно придумать.


 
Charlz ©   (2002-06-17 22:22) [2]

Спасибо! Самое важное чтобы было компактно! Если для каждой буквы такое писать, то будет на 100 кб одного текста :) Попробую третий вариант. Ещё раз спасибо!



Страницы: 1 вся ветка

Текущий архив: 2002.06.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
1-88811
Charlz
2002-06-16 16:23
2002.06.27
Определение дня недели из заданой даты


3-88732
Digitman
2002-06-04 08:51
2002.06.27
BLR-interpreter в составе -сервера ...


1-88909
Project1
2002-06-08 00:29
2002.06.27
Взаимодействие процессов...


8-88964
bogus
2002-02-15 17:00
2002.06.27
3D редактор


8-88967
Aristotel
2002-02-15 20:51
2002.06.27
Как создать иконки на форме и при необходимости их перемещать?? Как на рабочем столе в Windows!