Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Обработка строк

Автор: GEK 22.5.2008, 08:26

Получить строку удалив из неё повторное вхождение слов!
НАкидайте текст проги плиз сам не пойму как делать а завтра сдавать уже! smile

Автор: ama_kid 22.5.2008, 11:44

Код

function RegenerateString(const DoStr:string):string;
var
 T:TStringList;
 CurWord:string;
begin
 Result:='';
 T:=TStringList.Create;
 T.Delimiter:=' ';
 T.DelimitedText:=DoStr;
 repeat
   CurWord:=T.Strings[0];
   Result:=Result+CurWord+' ';
   T.Delete(0);
   while T.IndexOf(CurWord)>=0 do T.Delete(T.IndexOf(CurWord));
 until T.Count=0;
 T.Free;
 Result:=Trim(Result);
end;

Автор: GEK 22.5.2008, 12:10

Спасибо а что такое TRIM

Автор: ama_kid 22.5.2008, 12:13

Цитата(GEK @ 22.5.2008, 12:10

)

что такое TRIM

Прежде чем задавать вопросы - научись все-таки читать хелп самостоятельно...

Цитата

Trim removes leading and trailing spaces and control characters from the given string S

Вольный перевод (если туго с вражеским):

Цитата

Trim удаляет ведущие и завершающие пробелы и управляющие символы в данной строке S