Текущий архив: 2006.05.07;
Скачать: CL | DM;

Вниз

Работа со строками   Найти похожие ветки 

← →
Gelios ©   (2006-04-18 18:34) [0]

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

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

---

← →
Desdechado ©   (2006-04-18 19:07) [1]

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

---

← →
Zeqfreed ©   (2006-04-18 19:09) [2]

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;

---

Страницы: 1 вся ветка

Текущий архив: 2006.05.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.046 c