Головоломка со строкой

[Garacio]

В текстовом файле (777.txt) хранится отчёт о работе базы данных. Если во время работы никаких ошибок не было, то в последней строчке указанного файла будет 6 одинаковых чисел. Примерно так:
12.11.2006 game home doc 9 0 7 8 9 67890 67890 67890 67890 67890 67890 :; 6
Числа 67890 67890 67890 67890 67890 67890 идут подряд через один или несколько пробелов.
Вопрос с «выдёргиванием» последней строчки из 777.txt я решил так:
Source:=TstringList.Create;
Source.LoadFromFile('C:\Log\777.txt ');
R := Source[Source.Count-1];
Остаётся главный вопрос: как полученную строку проверить на наличие 4-х неизвестных «67890 67890 67890 67890 67890 67890», исключая [',', ';', ':', ' ', 'A'..'Z', 'a'..'z']?
Почему не 6-ти? – На случай ошибки в БД!
Т.е. нужно в Memo получить:
Если 67890 67890 67890 67890 67890 67890 то Memo1.Lines.Add(‘Тест пройден’);
Если 67890 12345 67890 67890 67890 67890 то Memo1.Lines.Add(‘Ошибка ’+Chisla);
Если 67890 67890 12345 12345 67890 67890 то Memo1.Lines.Add(‘Ошибка ’+Chisla);

[psyke]

считай файл в TStrings, возьми последнюю, да замочи TStrings. какие проблемы, потом циклом считывай числа до первого встречного пробела, в массив. сколько чисел ты знаешь. осталось только сравнить.

а думать ты и не хотел вовсе.

задумайся:

procedure TForm1.Button1Click(Sender: TObject);
const
s = 'qwerty qwerty qwerty';
var
i,j: Byte;
begin
j:=0;
for i:=0 to length(s) do
if ord(s[i]) = 32 then
inc(j);
MessageBox(0,pchar('В строке '+IntToStr(j)+' пробелов'),'Space',$24);
end;

а вообще вот:

function Proverka(s: String): Bool;
var
arr: array[0..5] of String[10];
i,t: Integer;
N: byte;
begin
result:=false;
t:=0;
for i:=0 to 5 do
arr[i]:='';

for i:=1 to length(s) do
begin
if s[i] = chr(32) then
inc(t)
else
arr[t]:=arr[t]+s[i]
end;

for i:=0 to 4 do
if not (arr[0] = arr[i+1]) then
begin
result:=false;
end else result:=true;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
If proverka('123 123 123 123 123') then
ShowMessage('Совпали!!') else Showmessage('Не совпали!');
end;

работает только с 6-ю числами, как только находит пробел (один) в строке, читает второе число. накидал за 5 минут, не универсализировал! на учёбу опаздываю

[Garacio]

Вот если бы было:If proverka('??? ??? ??? ??? ???') then...Это же БД! Сейчас там 123 записи, а завтра 246!

[Virtson]

а вот я так и не понял, проверяем только последнюю строку ?
а если выделить число, и искать в осnавшейся строке его еще 5 раз ?

[psyke]

ну и чё? отпирайся от данного примера. есть ф-я EOLN, думай.
я ж тебе показал как посчитать пробелы между числами...