Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

for i:=1 to N do if S[i]='/' then S[i]:='\';


dracula ©   (2004-08-01 21:22:00) 

for i:=1 to N do if S[i]=' ???' then S[i]:='\';
(замена одного символа на другой)
как в фрагмент где знаки вопроса вставить ввод(enter) в текстовом файле он помечается как два твёрдых знака. Но тут это непроходит или может я делаю чего нето?


Ну ну   (2004-08-01 23:40:00) [1]

сори

var s: string;

s := 'В чащах юга жил бы цитрус? Да, но фальшивый экземпляр.';
Edit1.Text := s;
s := StringReplace(Edit1.Text,'но фальшивый','образцовый',[rfReplaceAll, rfIgnoreCase]);
Edit1.Text := s;


Ну ну   (2004-08-01 23:39:00) [2]

var s: string;
Edit1.Text := s;
s := 'В чащах юга жил бы цитрус? Да, но фальшивый экземпляр.';
s := StringReplace(Edit1.Text,'но фальшивый','образцовый',[rfReplaceAll, rfIgnoreCase]);
Edit1.Text := s;


dracula   (2004-08-01 23:31:00) [3]

sLineBreak = #13#10
мне надо вот это
<title>
xxxxxxxxxxxxxxxxxxxxxxxxx
</title>
в одну строку прописать


dracula   (2004-08-01 22:52:00) [4]

for cntr:=1 to name do if namen[cntr]='???' then namen[cntr]:=' ';

а пример можно на этой строке, как мне это применить?
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;


dracula   (2004-08-01 22:45:00) [5]

>он помечается как #13#10

я имею ввиду в блокноте, и там он как два твёрдых знака


Ну ну   (2004-08-01 22:21:00) [6]

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

:))


GuAV   (2004-08-01 21:26:00) [7]


>  он помечается как два твёрдых знака.

нет, он помечается как #13#10 (или в Дельфи sLineBreak)
и все равно не вставишь, там нужен char а не string.


Наверх

Титульная страница Поиск, карта сайта Написать письмо