Меню

Delphi stringreplace не работает

Не работает StringReplace

А точнее — работает крайне странно.

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Функция StringReplace не работает в многопоточном приложении
функция StringReplace. по кнопке работает. но не работает в многопоточности. пример кода.

Stringreplace
Добрый вечер, помогите, что я делаю не так : var total:string; begin total:=’ lolka ‘; .

StringReplace
AnsiString shost=StringReplace(«svr::c11», «::c11», «», TReplaceFlags() 1

StringReplace
Подскажите у меня есть строка StringReplace(ExtractFileName(CurrentFile),’й’,’и’, ); она.

StringReplace
AssignFile(F, ‘1.txt’); Reset(F); while not Eof(F) do begin readln(f, tmp); name:=tmp;

StringReplace
CellText := StringReplace(CellText, #0$D,», ); ошибка Missing operator or semicolon в чем.

StringReplace не подходит
Всем привет! Есть два файла следующего вида: 1:Позицияодин 2:Позициядва 3 3:Позициятри и .

StringReplace не видит символ
Всем привет. Замучался я чего то. Вот код: procedure TForm1.Edit1KeyUp(Sender: TObject; var Key.

Была ли произведена замена функцией StringReplace?
Можно как-то отследить работу данной функции StringReplace ? Необходимо знать, была ли произведена.

Источник

Delphi stringreplace не работает

если в StringReplace установить оба флага rfReplaceAll, rfIgnoreCase

функция перестает понимать русские буквы и начинает глючить

(заменяя «Русские буквы» на . или другие неправильные символы), хотя заменяемую часть на русском продолжает понимать.

s2:=StringReplace(s1, ‘Заменяемая часть’, ‘Русские буквы’,[rfReplaceAll, rfIgnoreCase])

Было «АБВ» меняем на «яяя» получаем «yyy»
Было «абв» меняем на «ююю» получаем «. «

по отдельности
s2:=StringReplace(s1, ‘Заменяемая часть’, ‘Русские буквы’,[rfReplaceAll])
s2:=StringReplace(s1, ‘Заменяемая часть’, ‘Русские буквы’,[rfIgnoreCase])
работают корректно

а ещё, не исключено, что проблема напрямую связана с unicode.
AnsiString использовать не пытались?

попробуйте перевести вашу строку s1 в UpperCase, посмотрите на полученный результат. В зависимости от полученных результатов — и принимайте меры.

Читайте также:  Счетчик газа не работает экран

В XE2 есть
System.AnsiStrings.StringReplace для AnsiString
System.SysUtils.StringReplace для UnicodeString
а еще System.WideStrUtils.WideStringRepla ce для WideString

в XE3 не думаю что по другому. Какой StringReplace у вас?

Я написал аналог StringReplace — точную копию FRstr, сейчас это часть библиотеки
QuickSortStr 2.0 — посмотреть FRstr можно здесь

Функция работает нормально — проверял на строках Memo4 Memo5
Но глюки остались те же, выяснилось что по какой то причине глючит
Writeln(f2,s2) — отладчик до момента записи показывает в списке переменных нормальную строку с корректной заменой букв строки s2 без глюков и кракозябр а уже после записи в файл происходит что то не понятное.

Можно предположить что и функция StringReplace работает корректно.

Есть ли функция — аналог Writeln(f2,s2)?

Пока мне не ясно что вообще происходит и где косяк — как я уже говорил если писать флаги для функции StringReplace по одиночке в файл записываются нормальные буквы тоже самое касается новой функции FRstr
s2:=FRstr(s1, FromS1, ToS2,[rfReplaceAll]);
s2:=FRstr(s1, FromS1, ToS2,[rfIgnoreCase]);
В такой постановке все работает нормально, но совместите эти два флага и появляется — ошибка.

Источник

StringReplace

у меня есть строка

она меняет «привей», на «привеи»

но она меняет «ПРИВЕЙ», на «ПРИВЕИ?»

как сделать что бы не появлялся знак «?» .

Помощь в написании контрольных, курсовых и дипломных работ здесь.

StringReplace
var s: string; begin S:= form1.Edit3.Text; S:= StringReplace(S, ‘- ‘, ‘-‘, ); Идея такова.

Замена текста. Нужен рабочий пример с stringreplace
stringreplace -киньте синтаксис на русском Добавлено через 30 минут.

Delph/CodeGear/StringReplace замена &_#039; на символ ‘
в строке memo1 имеется код символа ‘, т.е. &_#039; заменяю StringReplace’ом, но ничего не.

Читайте также:  Не работает паровая швабра steam mop

StringReplace
CellText := StringReplace(CellText, #0$D,», ); ошибка Missing operator or semicolon в чем.

В первом случае меняется любая из «Й» или «й» на мелкую «и».
Во втором случае меняется любая из «Й» или «й» на большую «И».
Какие ещё «?» где? гм. Версия Делфи?

Добавлено через 50 секунд
Весь код давайте. Откуда берёте CurrentFile, какого он типа, куда отправляется результат StringReplace.

Добавлено через 12 минут
BOGG ART,

Ага, так, так.
Версию Делфи вы не написали. Это важно.

Добавлено через 5 минут
Странные кроказябры вылезли. Никогда таких не видел. Даже Декодер не понял что это.

Источник

Не работает StringReplace — Delphi — Ответ 12523758

А точнее — работает крайне странно.

Вот почему то в этом варианте, первая замена не происходит. НО. Если искать в первом случае «war3mapImported\DISBTN» то замена произойдет. Как это исправить? Мне нужно чтобы заменялись именно указанные строки.

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Функция StringReplace не работает в многопоточном приложении
функция StringReplace. по кнопке работает. но не работает в многопоточности. пример кода.

Stringreplace
Добрый вечер, помогите, что я делаю не так : var total:string; begin total:=’ lolka ‘; .

StringReplace
AnsiString shost=StringReplace(«svr::c11», «::c11», «», TReplaceFlags() 1

StringReplace
Подскажите у меня есть строка StringReplace(ExtractFileName(CurrentFile),’й’,’и’, ); она.

StringReplace
AssignFile(F, ‘1.txt’); Reset(F); while not Eof(F) do begin readln(f, tmp); name:=tmp;

StringReplace
CellText := StringReplace(CellText, #0$D,», ); ошибка Missing operator or semicolon в чем.

StringReplace не подходит
Всем привет! Есть два файла следующего вида: 1:Позицияодин 2:Позициядва 3 3:Позициятри и .

StringReplace не видит символ
Всем привет. Замучался я чего то. Вот код: procedure TForm1.Edit1KeyUp(Sender: TObject; var Key.

Читайте также:  Где отремонтировать кухонный гарнитур

Была ли произведена замена функцией StringReplace?
Можно как-то отследить работу данной функции StringReplace ? Необходимо знать, была ли произведена.

Источник

StringReplace

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Замена текста. Нужен рабочий пример с stringreplace
stringreplace -киньте синтаксис на русском Добавлено через 30 минут.

Delph/CodeGear/StringReplace замена &_#039; на символ ‘
в строке memo1 имеется код символа ‘, т.е. &_#039; заменяю StringReplace’ом, но ничего не.

StringReplace
CellText := StringReplace(CellText, #0$D,», ); ошибка Missing operator or semicolon в чем.

StringReplace
AssignFile(F, ‘1.txt’); Reset(F); while not Eof(F) do begin readln(f, tmp); name:=tmp;

StringReplace
Подскажите у меня есть строка StringReplace(ExtractFileName(CurrentFile),’й’,’и’, ); она.

Stringreplace
Добрый вечер, помогите, что я делаю не так : var total:string; begin total:=’ lolka ‘; .

Не работает StringReplace
А точнее — работает крайне странно. .

StringReplace не видит символ
Всем привет. Замучался я чего то. Вот код: procedure TForm1.Edit1KeyUp(Sender: TObject; var Key.

StringReplace работа с каждым вторым элементом
Нужно заменить каждый четный элемент строки на другой. Можно ли это сделать с помощью StringReplace?

Была ли произведена замена функцией StringReplace?
Можно как-то отследить работу данной функции StringReplace ? Необходимо знать, была ли произведена.

Источник

Adblock
detector