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

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

Перебор символов из текстового файла [XP]

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

Петя ©   (2012-09-01 16:17:00) 

Здравствуйте!

Накропал вот такой код.

procedure TForm1.Button1Click(Sender: TObject);
var
 SL: TStringList;
 I1, I2: Cardinal;
begin
 if (OpenDialog1.Execute(Form1.Handle) = False) then Exit;
 SL := TStringList.Create;
 SL.LoadFromFile(OpenDialog1.FileName);
 for I1 := 0 to SL.Count - 1 do
   for I2 := 1 to Length(SL.Strings[I1]) do
     if (SL.Strings[I1][I2] in ['а'..'я'] + ['А'..'Я'] + ['ё'] + ['Ё']) then
       ShowMessage('Строка ' + IntToStr(I1) + ', символ ' + IntToStr(I2));
 SL.Free;
end;

В идеале код должен функционировать так: в StringList загружается текстовый файл, а программа построчно, побуквенно должна перебирать символы на наличие русских букв и, если таковые обнаружатся, сообщить об этом пользователю.

Не знаю, в чём проблема, но код нерабочий. Программа не уведомляет пользователя, если в тексте содержатся русские буквы.

---

turbouser   (2012-09-01 16:53:00) [21]

> Петя   (01.09.12 16:33) [2]


> А как посоветуете?
>

TfileSteram

> Бывший, окончил только колледж

учиться, учиться и еще раз этсамое

---

Петя   (2012-09-01 16:33:00) [22]

> > StringList загружается текстовый фай
>
> уже неправильно


А как посоветуете?


> студент?


Бывший, окончил только колледж. Я уже несколько лет не занимался программированием.

---

turbouser   (2012-09-01 16:26:00) [23]

> StringList загружается текстовый фай

уже неправильно

> (SL.Strings[I1][I2] in ['а'..'я'] + ['А'..'Я'] + ['ё'] +
> ['Ё'])

if (SL.Strings[I1][I2] in ['а'..'я']) or (SL.Strings[I1][I2] in ['А'..'Я']  ) then fail
студент?

---

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

Наверх