VPF::Memo и строки - Форум программистов

iDenis

Дата 2.1.2005, 22:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

У меня на форме Memo1 я загружаю из FileOpen1 строки, мне нужно удалить вначале каждой строки все символы до определенного, а вдругой функции все символы после определенного, нуждаюсь в помощи как это осуществить?

Зарание спасибо.

Это сообщение отредактировал(а) iDenis - 2.1.2005, 22:45

Illusion Dolphin

Дата 2.1.2005, 22:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

var stroka:string;
stroka:=Memo1.text;
1) Delete(stroka,1,do_kakogo_n_simvola_udalit);
(если нужно до определённого символа (не по номеру), то тогда возьми функцию strpos(stroka,'Ы'), которая возвратит номер.)
2) Delete(stroka,s_kakogo_n_simvola_udalit,Length(stroka)-kakogo_n_simvola_udalit);
(вроде так)
Memo1.Text:=stroka;

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

iDenis

Дата 3.1.2005, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

2Illusion Dolphin Спасибо.

Вот только:

Код


var 
Str:string;
begin
Str:=Memo1.text;
Delete(Str,1,strpos(Str,'Ы'));
Memo1.Text:=Str;
end;

Вот только новая проблема strpos(Str,'Ы') тут ошибка, т.к. Str:string, а функция работает при PAnsiChar.

Ваши предлоения по решению этой проблемы хотелось бы выслушать! smile

Alex

Дата 3.1.2005, 00:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Код


AnsiStrPos(PChar(str), 'Ы');

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

iDenis

Дата 3.1.2005, 00:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

2 Alex
Error Incompatible types

или я что то не допонял?

Alex

Дата 3.1.2005, 00:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Код


var
  str: String;
begin
  str:= 'СЫр';
  ShowMessage(AnsiStrPos(PChar(str), 'Ы'));

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

iDenis

Дата 3.1.2005, 00:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

2 Alex
Спасибо конечно ваш пример безусловно работает, но вот код что я выше привел мне нужно чтобы он работал, там нужно чтобы strpos(Str,'Ы') возвращал номер символа этого, если знает кто как найти и получить номер символа другим способом желательно работать с :String.

Alex

Дата 3.1.2005, 01:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Так понятно приехали. Давайте по порядку начнем с того, что приведенный выше ваш код не сделает то, что вы хотите. Т.к. вы хотите удалить из каждой строчки.

Теперь у меня возникает два вопроса:
1. Поиск символа должен быть с учетом регистра или без него?
2. Вы хотите удалить до этого символа или включая этот символ?

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

iDenis

Дата 3.1.2005, 01:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Ну и конечно рабочий вариант приходит лишь после того как переберешь все сложные варианты на ум приходит простой:

Код


Delete(Str,1,Pos('Ы',Str));

Всем спасибо кто помогал!

Это сообщение отредактировал(а) iDenis - 3.1.2005, 01:20

Alex

Дата 3.1.2005, 01:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Тогда уж:

Код


Delete(Str,1,AnsiPos('Ы',Str));

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

iDenis

Дата 3.1.2005, 01:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Цитата(Alex @ 3.1.2005, 01:25)

Тогда уж:

Код


Delete(Str,1,AnsiPos('Ы',Str));

Почему? Мой вариант работает как на дрожях smile

Alex

Дата 3.1.2005, 02:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Цитата(iDenis @ 3.1.2005, 01:49)

Почему? Мой вариант работает как на дрожях

Я бы сказал так, если код на 1 день то можно и pos оставить, а если хочется, чтобы код был уже нормальный и в один прекрасный момент не рухнул, то лучше все-таки мой написать т.к. Pos не обрабатывает многобайтовые символы.

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

iDenis

Дата 3.1.2005, 04:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

2 Alex
Я еще до твоего ответа написал как ты сказал, т.к. думаю старожилы форума всяко дельнее в кодинге чем юнцы smile

iDenis

Дата 5.1.2005, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Новая задача: Нужно удалить пустые строки из Memo1, помогите smile

Pakshin A. S.

Дата 5.1.2005, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

1) Один топик - один вопрос!!!
2)

Код


var
 i:integer;
begin
 ...
 i:=0; 
while i < Memo1.Lines.Count do
 if Memo1.Lines.Strings[i]  = ''
  then
   Memo1.Lines.Delete(i)
  else
   inc(i);

Что-то в этом духе...

Это сообщение отредактировал(а) Pakshin A. S. - 5.1.2005, 20:36

Alex

Дата 5.1.2005, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Код


var
  i: Integer;
begin
  for i:= 0 to Memo1.Lines.Count-1 do
    if Trim(Memo1.Lines.Strings[i])  = '' then // Строки, содержащие только пробелы тоже удаляем
      Memo1.Lines.Delete(i);
end;

Но 1 тема 1 вопрос.

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Pakshin A. S.

Дата 5.1.2005, 20:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Alex а по-моему не верно...
попробуй с таким Memo:
asd

asd

ds

s

Alex

Дата 5.1.2005, 20:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

упс

Код


var
  i: Integer;
begin
  for i:= Memo1.Lines.Count-1 downto 0 do
    if Trim(Memo1.Lines.Strings[i])  = '' then // Строки, содержащие только пробелы тоже удаляем
      Memo1.Lines.Delete(i);
end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Vit

Дата 5.1.2005, 21:25 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

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

Репутация: 48
Всего: 207

Извиняюсь за офтоп...

i need help you - грамматически неверно.

Надо:
или
I need to help you - мне надо Вам помочь

или
I need your help - мне нужна Ваша помощь

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »