Удаление одинаковых подстрок в строке

Тема в разделе "Delphi - FAQ", создана пользователем mozhunt, 23 мар 2008.

Статус темы:
Закрыта.
  1. mozhunt

    mozhunt Гость

    Народ, есть строка 11043 11029 11029 11036

    надо из нее сделать строку 11043 11029 11036

    Как ?
     
  2. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    Код (Text):
    program legko;
    uses
    sysutils;
    var
    a: array [1..100] of string;
    st : string;
    i,n : integer;
    fl : boolean;
    begin
    n:=0;
    readln(st);
    st:=st+' ';
    while pos(' ',st)>0 do
    begin
    fl:=true;
    for i:=1 to n do
    if copy(st,1, pos(' ',st)-1)=A[i] then
    begin
    fl:=false;
    break
    end;
    if fl then
    begin
    n:=n+1;
    a[n]:=copy(st,1,pos(' ',st)-1)
    end;
    delete(st,1,pos(' ',st))
    end;
    for i:=1 to n-1 do
    st:=st+a[i]+' ';
    st:=st+a[n];
    writeln(st);
    readln
    end.
    Писал на ходу, так что могут быть ошибки, но надеюсь их не будет.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей