как считать весь текст

[Makspane]

гляньте,я написал программму, но она работает только есле в текстовом файле 1 строка текста, а мне нужно чтоб она работа со всем текстом который находится в файле... подскажите, как ее исправить
Form1: TForm1;
f:textfile;
s:string[255];
s1:string;
i,j,k,l:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f,'in.txt');
reset(f);
i:=0;
read(f,s);
label2.Caption:=' ';
l:=1;
while i<=length(s) do
begin
i:=i+1;
if s[i]='.' then
begin
for k:=i downto l do
label2.Caption:=label2.Caption+s[k];
l:=i+1;

end;
end;
closefile(f);
end;
end.

[Valio]

Обычно это выглядит так:

While Not Eof(myFile) Do
Begin
     ReadLn(myFile, text);
     // ...
End;

[Прик]

Или:

procedure TForm1.Button1Click(Sender: TObject);
var
  SL : TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(in.txt);
    label2.Caption:=' ';
    l:=1;
    while i <= length(SL.Text) do begin
    ...
    end;
  finally
    SL.Free;
  end;
end;

[Makspane]

Сообщение от Valio

Обычно это выглядит так:

While Not Eof(myFile) Do
Begin
     ReadLn(myFile, text);
     // ...
End;

а вмоем случае, как правильно вставить ето вмой код чтоб оно ном читывало и выдавало результат?

[Hacker19_90]

Makspane
А давай те не будем друг другу мозг выносить и заниматься телепатией
Выложите всё задание! ОТ и ДО

[Makspane]

Сообщение от Hacker19_90

Makspane
А давай те не будем друг другу мозг выносить и заниматься телепатией
Выложите всё задание! ОТ и ДО

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

тот код что выше это делает, нотолько для ОДНОЙ строки, а мне надо чтоб оно работало для любого количества строк в файле

[Makspane]

гляньте, пожалуйста , а то я не могу норм разобрать, как это сделать.....

[Hacker19_90]

так как я понял точка предложения может находиться где угодно ии в принципе на других строках. Тогда как мне кажется считывание символами будет лучше примерно так

procedure TForm1.Button1Click(Sender: TObject);
var
  ch: char;
  i: integer;
  s: string;
begin
  assignfile(f,'in.txt');
  reset(f);
  s := '';
  while not(EOF(f)) do
  begin
    read(f,ch);
    if ch <> '.' then s := s + ch
    else
    begin
      s := s + ch;
      for i := length(s) downto 1 do
        Memo1.Text := Memo1.Text + s[i]
      s := '';
    end;
  end;
  closefile(f);
end;

коряво конечно, лучше конечно через стринлист или что то подобное

[Makspane]

Сообщение от Hacker19_90

так как я понял точка предложения может находиться где угодно ии в принципе на других строках. Тогда как мне кажется считывание символами будет лучше примерно так

procedure TForm1.Button1Click(Sender: TObject);
var
  ch: char;
  i: integer;
  s: string;
begin
  assignfile(f,'in.txt');
  reset(f);
  s := '';
  while not(EOF(f)) do
  begin
    read(f,ch);
    if ch <> '.' then s := s + ch
    else
    begin
      s := s + ch;
      for i := length(s) downto 1 do
        Memo1.Text := Memo1.Text + s[i]
      s := '';
    end;
  end;
  closefile(f);
end;

коряво конечно, лучше конечно через стринлист или что то подобное

СпасибО)) оно))))