Конечный автомат мешок неисправных файлов

[HellMercenariess]

Здравствуйте!
Делал алгоритм разбора строки по книге, когда он был уже готов выяснилось что нужно еще скачать один файл, когда тот был скачан выяснилось что нужен еще один а затем еще два маленьких с директивами, ну вот я поделал файлы хотя два из них не сохранялись в Дельфи, я сохранил их с помощью нотепад, и когда все файлы уже были размещены должным образом выяснилось что в одном файле куча ошибок , ну какие я мог догадатся починил а остальные вроде "Identifier Expected But Function Found"
TDDefine.inc, TDBasics, TDStrRes.inc, TDStates

implementation 
 
uses 
  {$IFDEF Delphi1} 
  WinTypes, WinProcs; 
  {$ENDIF} 
  {$IFDEF Delphi2Plus} 
  Windows; 
  {$ENDIF} 
  {$IFDEF Kylix1Plus} 
  Types, Libc; 
  {$ENDIF} 
{$IFDEF Delphi1} 
{$R TDStrRes.r16} 
{$ENDIF} 
{$IFDEF Delphi2Plus} 
{$R TDStrRes.r32} 
{$ENDIF} 
{$IFDEF Kylix1Plus} 
{$R TDStrRes.r32} 
{$ENDIF} 
 
function TDCompareLongint(aData1, aData2 : pointer) : integer;

я могу только догадыватся что надо написать между implementation и Function а также когда файл закончился компилятор ожидает еще несколько деклараций

вот эта секция была ниже implementation и здесь указывалось на ошибку я перетащил секцию выше implementation и это сработало -1 одна ошибка из 13

const 
  UnitName = 'TDBasics';

подумаеш в файлах всего каких-то 300-500 строк..

[HellMercenariess]

Кто может подкинуть рабочий код для извлечения слов из текста?
12 ошибок в чужом файле я не смогу починить

[Lesha]

Кто может подкинуть рабочий код для извлечения слов из текста

Функции
POS
POSEX (модуль strutils)
Copy
Insert
Delete
StringReplace

str_explode
str_implode
код ниже

Мануал смотри в документации по PHP
http://php.net/manual/ru/function.implode.php
http://www.php.net/manual/ru/function.explode.php

Мануал по спискам TStringList TStrings и тп
http://www.delphibasics.ru/TStringList.php
http://www.bdrc.ru/publ/2-1-0-41

// строку в список (explode)

{ uses strutils; }

procedure str_explode(const sDelimiter, sSrc :string; resStr: TStrings; lLimit :integer = -1; bWithEmpty :boolean = true);
// разбивает в массив строку sSrc по разделителю sDelimiter
// lLimit - предел длины массива (-1 - без предела)
// bWithEmpty - разрешать пустые строки
var i, ni, dl :integer;
begin
    dl := Length(sDelimiter);
    resStr.Clear;
    if Length(sSrc) = 0 then exit;
    if lLimit <= 0 then lLimit := MaxInt;
    i := 1;
    repeat
        ni := PosEx(sDelimiter, sSrc, i);
        if (ni = i) and not bWithEmpty then begin
            inc(i, dl);
        end else if (ni = 0) or (resStr.Count = lLimit) then begin
            resStr.add(Copy(sSrc, i, MaxInt));
            break;
        end else begin
            resStr.add(Copy(sSrc, i, ni - i));
            i := ni + dl;
        end;
    until false;
end;
 
function str_implode(rz:string; list:TStrings): string;
var i:integer;
begin
  result:='';
  if list.Count=0 then exit;
  for i := 0 to list.Count - 2 do result:=result+list[i]+rz;
  result:=result+list[list.Count-1];
end;

Для выбора каких то слов по "маске" нужно использовать регулярные выражения