| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

строки.... [D7, XP]

Страницы:   < 1 2 3 4 >

Steep ©   (2008-02-11 23:06:00) 

суть такая берем первый Memo (текст примерно такой):

Linkin Park, Era, Ария, Evanescence, Limp Bizkit, DMX, 50 Cent, Slipknot, Nightwish,
Rammstein, Enya, Papa Roach, Король и Шут, Blink 182, Apocaliptica, Benny Benassi,
Alizee, Nickelback, Nirvana, Powerman 5000, The Black Eyed Peace, Наив,
Cranberries, Moby, Ludacris, Tokia Hotel, Three Days Grace, Nelly Furtado, Metallica,
HIM, Prodigy, Brainstorm, Tiga, KoRn, Green Day, 666, Город 312, Roxette, Jay-Z, Rob
Zombie, Flipsyde, Justin Timberlake, Сплин, Дельфин, Timbaland, placebo, zdob si
zdub, Paul Van Dyk, all american rejects, Guano Apes, Lordi, Lost prophets, Rihanna,
Global Deejays, Die Apokalyptischen Reiter, Пилигрим, Легалайз, Morcheeba, Akon,
Pink, Bob Sinkler, Gregorian, The Killers, Fort Minor


потом ищем до запятой копируем в Memo2 вроде бы все работает
НО почемуто после некоторых названии в Memo2 появляются пустые строки...
например после: Nightwish, Benny Benassi, Наив, Metallica и тд.

код сканирование текста

procedure TForm1.Button1Click(Sender: TObject);
var
 AllText: string;
 x: boolean;
 tmp: string;
 tmppos: integer;
begin
 x := false;
 AllText := Memo1.Text;
 repeat
 tmppos := pos(', ', AllText);
 if tmppos<>0 then
   begin
       //Showmessage(AllText);
     tmp := copy(AllText, 1, tmppos-1 );
       //Showmessage('tmp: ' + tmp);
     Memo2.Lines.Append( tmp );
     delete(AllText, 1, tmppos+1 );
       //Showmessage(AllText);
   end
 else x := true;
 until x
end;


как недопустить их появления? в чем может быть ошибка?

---

Steep   (2008-02-11 23:24:00) [61]

> {RASkov} ©

круто... эх... как стать таким умным :)


> antonn ©  

хм просто и сердито... но вариант от {RASkov} мне понравился больше :) (хотя учту на будущее)

---

antonn   (2008-02-11 23:21:00) [62]

pos(#13,'стриииинг')
а так? :)

---

{RASkov}   (2008-02-11 23:21:00) [63]

> [2] Steep   (11.02.08 23:20)

begin
x := false;
AllText := StringReplace(Memo1.Text, #13#10, '', [rfReplaceAll]);

---

Steep   (2008-02-11 23:20:00) [64]

хм... а как их искать и удалять?
ведь pos('#13', AllText) так точно не задаш... (точнее задаш но не найдет....)

---

antonn   (2008-02-11 23:15:00) [65]

удаляй символы перевода строки #13#10 в Memo1.Text

---

Страницы:   < 1 2 3 4 >

Наверх