Чтение из текстового файла и обработка посимвольная

[дмитрий12123]

Есть задача : с клавиатуры ввести имя файла, затем скачать текст, затем последние три буквы каждого слова проверять на наличие цифр 1,2 и 3. Слова разделяются пробелами.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
          var nv , text ,fv: string;
              f : array of string;
              d : array of int;   
         begin
          writeln("продолжение?");readln(n);
          if nv = "да" then fv :=(C:\Documents and Settings\Администратор\Мои документы\Загрузки\file.txt);
          else
         begin
             writeln ("введите путь");
             readln(f);
         end;
         assign (text,n);
         reset(text);
         f:=Read(text, n);
        for i = 1 to n do begin
         if f(i)= " " theb begin
        a := f [i-3]; b := f[i-2]; c := f[i-1];
       if a or b or c = d then writeln(есть такое слово) ;end;
end;
      
end.

Вот такая программа получилась.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

неправильная программа у Вас получилась.
1-х, имя текстового файла по заданию надо вводить, а у вас задано в коде.
2-х, вы не проверяете, что слово может быть КОРОЧЕ трёх символов
в 3-х, где, собственно, проверка, что там есть цифры '1' или '2' или '3' ?!

p.s. про такое я уже вообще молчу:

if f(i)= " " theb

p.p.s.
для парсинга (разбора) слов в строке рекомендую поискать готовый код на форуме (их тут была тьма-тьмущая).
вот, например, можете переработать под себя код (с) Stilet

{отпарсить - разобрать строчку на слова.
 выделить слова}
{ (c) Stilet}

var 
  s:string; a:array[1..100] of string;
  i,count:integer;
begin   {$o-}
 s:='Hello my world';
 count:=1;
 i:=1; 
 while (i<=length(s)) do begin
   if s[i]=' ' then begin inc(count);inc(i);end;
   a[count]:=a[count]+s[i];
   inc(i);
 end;
 { Count - количество слов. }

[whatever]

Сообщение от дмитрий12123

         if f(i)= " " theb begin

А мне всегда было интересно, как впринципе можно допускать такие ошибки, в синтаксисе? Вы что, в блокноте программы пишите? На такую конструкцию дэлфи (а я на 99% уверен, что код дэлфийский) будет орать благим матом.

[дмитрий12123]

я только учусь. Подскажите чуть-чуть ещё?

 
код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
begin
AssignFile(F,pas.txt);
Rewrite(F);
WriteLn(F,'Привет! Это первая строка в текстовом файле');
CloseFile(F);
end;

end.

Выдает ошибку [Error] Unit1.pas(30): Undeclared identifier: 'pas'?
Чего делать?

[BDA]

AssignFile(F,'pas.txt');

Используйте кнопочку решетка # для выкладывания кода.

[дмитрий12123]

почему не проходит?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
begin
AssignFile(F,'pas.txt');
Append(F);
WriteLn(F,'Хлебом не корми, дай только строки добавлять!');
CloseFile(F);
end;

end.

то же самое и с reset..

[Serge_Bliznykov]

почему не проходит?

потому что команда Appenf(f), как и Reset(f) предполагают наличие СУЩЕСТВУЮЩЕГО текстового файла.
С чего Вы решили, что в том каталоге, который является для программы текущим имеется файл pas.txt ?!

рекомендую, например, указать ПОЛНЫЙ путь к файлу.
например, так:

AssignFile(F,'D:\My Projects\pas.txt');
Append(F);

[дмитрий12123]

Пишет einouterror file not found при полном пути до файла!
Никакого прогресса!? Файл есть и читается с windows легко.

[Serge_Bliznykov]

file not found

значит НЕТ у Вас файла по указанному вами пути!!!
Либо этот файл имеет "хитрые" аттрибуты (скрытый, системный, read-only) и т.д.
какой "полный" путь Вы указываете?

p.s. сам код рабочий. я только что проверил.

[дмитрий12123]

Снова повтор:

procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
begin
AssignFile(F,'C:\Program Files\Borland\Delphi7\Projects\pas.txt');
Append(F);
WriteLn(F,'Хлебом не корми, дай только строки добавлять!');
CloseFile(F);
end;

Project xxxx raised exception class yyyyy with message 'zzzzzz'.

Process stopped. Use Step or Run to continue.

Не могу понять чего делать? Может проблема в uses или в связке AssignFile Append(F)?