VPF::Проблема со строкой - Форум программистов

maxim1000

Дата 21.7.2005, 09:50 (ссылка)

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

Загрузка ...

Эксперт

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

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

кстати, если сделать массив из 255 bool'ов и хранить в нем "встречался символ или нет", получится быстрее smile

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

qqq

Akina

Дата 21.7.2005, 10:00 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

maxim1000
имеешь в виду

Код


for i = 1 to len(str)
   Presence(asc(mid(str,i))) = True
next

?

В принципе верно, при условии что речь идет о повторении БАЙТОВ - что последнее время ставится под сомнение... автора бы...

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

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

angelofdeath

Дата 21.7.2005, 10:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Да 'В1 П2 О1 В1 Г П2 ' - вот такая строка , и сравнить надо как раз группу символов разделенных пробелом
пробел повторяется...........и удалить повторяющийся символ (язык делфа)
Добавлено @ 10:58

Да стринговый массив можносделать
var
o1:array of string;
begin
s:=Edit7.Text;
Repeat
setlength(o1,length(o1)+1);
if pos (' ',s)>0 then
begin
o1[length(o1)-1]:=trim((copy(s,1,pos(' ',s))));
s:=copy(s,pos(' ',s)+1,length(s));
end
else begin
o1[length(o1)-1]:=trim(s);
break;
end;
until False;
end;

тока - как улаить из массива символы повторяющиеся я тоже не знаю , и молучается более грамоздко

Akina

Дата 21.7.2005, 11:18 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

angelofdeath
Пихаем строку в TStringList, заменяем пробелы на #13#10 (полчается массив строк), обрабатываем строки по принципу: берем очередную строку, сравниваем с предыдущими. Если не нашлось - берем следующую, если нашлось - на ее место пишем последнюю (кол-во строк при этом уменьшается на 1)... т.е. гоним 2 указателя - на проверяемый элемент и на конец массива элементов до тех пор пока они не сравняются. Потом обратная замена переводов строки на пробелы.

Можно даже проще - заставить TStringList после разбиения отсортироваться, тогда сравнивать придется только последующий с предыдущим, а не со всеми предыдущими...

Это сообщение отредактировал(а) Akina - 21.7.2005, 11:26

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

angelofdeath

Дата 21.7.2005, 13:51 (ссылка)

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

Загрузка ...

Новичок

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

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

А текст можешь набросать , просто если делать с моссивом , то при проверке у меня
возникает куча ошибок...........

Akina

Дата 21.7.2005, 14:16 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

Что-нить типа:

Код


var 
  t:TStringList; 
  s:String;
  i:Integer;

begin 
  s:='aa cb db cx cv bf hd fy he vc bs fg sd rf w3 tk jl ca cb d1 11 32 21 11';
  t:=TStringList.create;
  t.text:=stringReplace(s,' ',#13#10,[rfReplaceAll]);
  t.Sort=True;
  i=1;
  repeat
    if t[i]=t[i-1] then 
      begin
        t[i].Delete;
      end
    else
      begin
        i:=i+1;
      end;
  until i=t.Count;
  s:=stringReplace(t.text,#13#10,' ',[rfReplaceAll]);
  t.free; 
end.

Т.к. я на Дельфе не пишу - проверяй сам.

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

angelofdeath

Дата 22.7.2005, 00:29 (ссылка)

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

Загрузка ...

Новичок

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

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

Все шикарно , большое тебе спасибо , я тупил .... не подумал о
repeat , - совсем этот цикл из башки вылетел :-)

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