Скачать: CL | DM;

String и повторяющиеся элементы   Найти похожие ветки 

← →
cruiser ©   (2008-10-20 23:12) [0]

Здравствуйте мастера. Помогите с решением небольшой задачки.
Нужно из строки вида: "Маша,Игорь,Яна,Яна,Маша,Анна,Игорь"  путем исключения повторяющихся элементов получить строку вида "Маша,Игорь,Яна,Анна". Причем количество и разновидность элементов (имен в данном случае) неизвестно. Заранее спасибо!

---

← →
MsGuns ©   (2008-10-20 23:59) [1]

Строку распарсить и пофрагменто записать в TStrings, предварительно проверяя на наличие аналога. Затем из TStrings собрать строку..

---

← →
sniknik ©   (2008-10-21 00:26) [2]

var sList: TStringList;
begin
 with TStringList.Create do
   try
     Sorted       := true;
     Duplicates   := dupIgnore;
     Delimiter    := ",";
     DelimitedText:= "Маша,Игорь,Яна,Яна,Маша,Анна,Игорь";
     Edit1.Text:= DelimitedText;
   finally
     Free;
   end;
end;

---

← →
cruiser ©   (2008-10-21 00:32) [3]

Огромное спасибо, а то уже такого понаворотил, что и сам запутался :)
Вот что у меня выходило в коде и не работало:
var m,n:integer;
s1,s3,s2,s,sm:string;

begin
s:="";
s2:="";
s1:=edit1.Text;
s3:=s1;
for m := 1 to length(s1) do // ðàçáèðàåì ñòðîêó íà îòäåëüíûå ýëåìåíòû
 begin
  if s1[m]="," then  // îñòàíîâèëèñü åñëè  ñèìâîë çàïÿòàÿ
  begin
   for n := 1 to length(s3) do  // ðàçáèðàåì ïðîìåæóòî÷íóþ ñòðîêó íà îòä ýë-òû
    begin
     if s3[n]="," then
      begin
       if s2=s then
       begin
       sm:=sm+s2;
       s:="";
       end ;
       end
       else s:=s+s3[n]
      end;
     s2:="";
   end
  else
   begin
    s2:=s2+s1[m];
   end;
 end;
 showmessage (sm);
end;

---

← →
cruiser ©   (2008-10-21 00:33) [4]

sniknik - всё работает! Спасибо еще раз огромное!

---

← →
Германн ©   (2008-10-21 01:26) [5]

> cruiser ©   (21.10.08 00:33) [4]
>
> sniknik - всё работает! Спасибо еще раз огромное!
>

Хелп читать надо. И книжки тоже. Иначе будешь "такого понаворотил, что и сам запутался " всю жизнь! :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c