имеется строка:
Не said, "State machines?"
| Delphi |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
| procedure TDExtractWords (const S : string; aList : TStrings);
type
TStates = (ScanNormal, ScanQuoted, ScanPunctuation);
const
WordDelim = ‘ !<>[]{}(),./?;:-+=*&’;
var
State : TStates;
Inx : integer;
Ch : char;
CurWord : string;
begin
{инициализация путем очистки списка строк и начало работы в состоянии ScanNormal с пустым словом}
Assert(aList <> nil, ‘TDExtractWords: list is nil’);
aList.Clear;
State := ScanNormal;
CurWord : = ‘ ’;
{считывание всех символов строки}
for Inx := 1 to length(S) do begin
Ch := S[Inx] ;
{обработка в зависимости от состояния}
case State of
ScanNormal :
begin
if (Ch = ‘”’) then begin
if (CurWord <>’ ’) then
aLi st.Add(CurWord);
CurWord : = ‘”’ ;
State := ScanQuoted;
end
else if (TDPosCh(Ch, WordDelim) <> 0) then begin
if (CurWord <> ‘ ’) then begin
aLi st.Add(CurWord);
CurWord : = ‘ ’ ;
end;
State := ScanPunctuation;
end
else
CurWord := CurWord + Ch;
end;
ScanQuoted :
begin
CurWord := CurWord + Ch;
if (Ch = ‘”’) then begin
aList .Add (CurWord) ;
CurWord : = ‘ ‘;
State := ScanNormal;
end;
end;
ScanPunctuation :
begin
if (Ch = ‘”’ ) then begin
CurWord : = ‘”’ ;
State := ScanQuoted;
end
else if (TDPosCh(Ch, WordDelim) = 0) then begin
CurWord := Ch;
State := ScanNormal;
end
end;
end;
end;
if (State = ScanQuoted) then
raise EtdStateException. Create (FmtLoadStr (tdeStateMisMatchQuote,
[UnitName, ‘TDExtractWords’]));
{если текущее слово не является пустым, добавить его в список}
if (CurWord <> ‘ ‘ ) then
aList.Add(CurWord);
end; |
|
Код извлекает символ из входной строки, а затем входит в оператор Case, ко¬торый переключает текущее состояние. Для каждого состояния предусмотрены операторы If, которые реализуют соответствующие действия и переходы в зави¬симости от значения текущего символа. В конце кода, если завершение програм¬мы происходит в состоянии ScanQuoted, генерируется исключение.
| Delphi |
1
2
3
4
5
6
7
8
9
10
11
| function TDPosCh(aCh : ANsiChar; const S : string) : integer;
var
i : integer;
begin
Result := 0;
for i := 1 to length(S) do
if (S[i] = aCh) then begin
Result := i;
Exit;
end;
end; |
|
Помогите пожалуйста с кодом
Используя процедуру TDExtractWords создать и отладить консольное приложение, реализующее рассмотренный алгоритм.
(
