Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Memo, где у него x и у? 
:(
    Опции темы
Негодяй
Дата 26.3.2005, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Порядочный
***


Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

Репутация: нет
Всего: 32
как в мемо мне изменитькакой-нибудь определённый символ по его номеру в строке и по номуру самой строки??
PM MAIL   Вверх
Marriage
Дата 26.3.2005, 20:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 842
Регистрация: 4.5.2004
Где: Таганрог

Репутация: нет
Всего: 2
Код

str:=memo1.Lines[0];
str[5]:='9';
memo1.Lines[0]:=str;;

Так пойдет ?????


--------------------
Praemonitus, praemunitus
PM MAIL ICQ   Вверх
Негодяй
Дата 26.3.2005, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Порядочный
***


Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

Репутация: нет
Всего: 32
так значит нельзя обойтись без использования строки
PM MAIL   Вверх
Marriage
Дата 26.3.2005, 20:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 842
Регистрация: 4.5.2004
Где: Таганрог

Репутация: нет
Всего: 2
Негодяй

Я не знаю. Если узнаешь, запостишь ???



--------------------
Praemonitus, praemunitus
PM MAIL ICQ   Вверх
Негодяй
Дата 26.3.2005, 20:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Порядочный
***


Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

Репутация: нет
Всего: 32
хорошо, у меня тогда другой вопрос что мне делать когда я в строках мемо хочу избавться от нескольких пробелов и оставить один??
PM MAIL   Вверх
FRAGNATIC
Дата 26.3.2005, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
Код

var s1: string;
    i: integer;
begin
  s1 :=Memo1.Text;
  i:=0;
  while posex('  ', s1, i+1) > 0 do begin
    i := posex('  ', s1, i+1);
    delete(s1, i, 1);
    Insert(' ', s1, i);
  end;

по ходу так если в тексте находит ' ' (два пробела подрят) то удаляет их и вставляет на их место один пробел
Добавлено @ 21:24
хотя фигня какая-то не могу понять если так заменять символы какиенить то всё работает если заменять пробелы то не пашет( smile smile smile
PM MAIL   Вверх
Негодяй
Дата 26.3.2005, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Порядочный
***


Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

Репутация: нет
Всего: 32
аналогично перепробывал всё чё за фигня не пойму smile
PM MAIL   Вверх
Alex
Дата 26.3.2005, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162
Код

memo1.Lines[0][5]:= '9';



--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Poseidon
Дата 27.3.2005, 02:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Цитата
хорошо, у меня тогда другой вопрос что мне делать когда я в строках мемо хочу избавться от нескольких пробелов и оставить один??

Код
var
st: string;
i: integer;
Changed: boolean;
begin
st:= Memo1.Text;

Repeat
  Changed:= False; // типа мы ничего не удаляли
  for i:= 1 to length(st) do // будем брать каждый символ
  if pos('  ',st) = i // если находим два пробела подряд
  then
    begin
    delete (st,i,1);  //удаляем один
    Changed:= True; // показываем циклу, что что-то удалили и нужно проверить еще
// вдруг там три пробела!
    end;

Until not Changed; // если за цикл ничего не удалилось то все ОК

Memo1.Text:= st;
end;


Код проверял. У меня работает.

Это сообщение отредактировал(а) Poseidon - 27.3.2005, 02:59


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
FRAGNATIC
Дата 27.3.2005, 03:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
ха лооол) я ща заглянул в тему эту) и заметил в чём ошибка в том коде который я привёл) там в конце мемо нужно присвоить текст отредактированый ( из S1) и удалять 2 символа а я ток 1 поставил) тоесть надо
Код

var 
s1: string;
i: integer;
begin
s1 :=Memo1.Text;
i:=0;
while posex(' ', s1, i+1) > 0 do begin
i := posex(' ', s1, i+1);
delete(s1, i, 2);
Insert(' ', s1, i);
Memo1.Text:=s1;
end;

Добавлено @ 03:29
To Alex : а почему ты удалил свой пост? там хорошоя функция была)

Это сообщение отредактировал(а) FRAGNATIC - 27.3.2005, 03:33
PM MAIL   Вверх
Alex
Дата 27.3.2005, 03:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162
Цитата
хорошо, у меня тогда другой вопрос что мне делать когда я в строках мемо хочу избавться от нескольких пробелов и оставить один??

Код

var
  s: String;
begin
  s:= Memo1.Text;
  while pos('  ', s) <> 0 do s:= AnsiReplaceText(s, '  ', ' ');
  Memo1.Text:= s;
end;

Хотя по ресурсо емкости пример не самый хороший.


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Poseidon
Дата 27.3.2005, 04:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Alex, забыл
Код
Uses StrUtils;



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
FRAGNATIC
Дата 27.3.2005, 04:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
для моего примера тож надо
Код

Uses StrUtils;


smile
PM MAIL   Вверх
Негодяй
Дата 27.3.2005, 11:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Порядочный
***


Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

Репутация: нет
Всего: 32
TO FRAGNATIC:
Код

var 
s: string;
begin
s:=Memo1.Text;
while pos('  ',s) > 0 do begin
delete(s,pos('  ',s), 1);
Memo1.Text:=s;
end;
end;

без Insert работает

TO Alex:
Код

memo1.Lines[0][5]:='9';

очень интересная формула

усем спасибоо!!!!!
PM MAIL   Вверх
FRAGNATIC
Дата 27.3.2005, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
Цитата
без Insert работает

ну без инсерт она удаляет 2 пробела и всё) а с инсерт на место 2 пробелов вставляет 1 пробел) ну вообщем можно просто 1 пробел удалять да и всё)
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0651 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.