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

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

Работа со строками

Gelios ©   (2006-04-18 18:34:00) 

Народ, подскажите как мне вывести из символьной строки нужные символы (Русские, латинские, спец символы).

P.S
  Эта программа пишеться в консоле

---

Zeqfreed   (2006-04-18 19:09:00) [1]

type
 TOutputRoutine = procedure(const ch : Char);
 TCharSet = set of Char;

. . .

procedure EvaluateString(const Str : String; OutputChars : TCharSet; OutputRoutine : TOutputRoutine);
var
 i : Integer;
begin
 for i := 1 to length(Str) do begin
  if (Str[i] in OutputChars) then OutputRoutine(Str[i]);
 end;
end;

procedure Output(const ch : Char);
begin
 Form1.Memo1.Lines.Add(ch);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Clear;
 EvaluateString(Edit1.Text, ['!','h','e'], Output);
end;

---

Desdechado   (2006-04-18 19:07:00) [2]

что значит "вывести из строки"?

---

Наверх