Ошибка при выполнении

[123cmp]

Здравствуйте. Пишу программу на Delphi 7, цель которой - обработать текстовый файл след. образом: в каждой строке, если 2-й символ "3" - то поменять его на "4", и убрать символы после 18-го.
Вот что получилось:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    RichEdit1: TRichEdit;
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  a: string;
  j,i:byte;
  Form1: TForm1;
  fname, st1, st: string;

implementation

{$R *.dfm}

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
fname := opendialog1.FileName;
richedit1.Lines.LoadFromFile(fname);
end;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
if savedialog1.Execute then
begin
 fname := savedialog1.FileName;
richedit1.Lines.savetoFile(fname);
end;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
for i:=0 to richedit1.Lines.Count do
begin
st := richedit1.Lines[i];
for j:=1 to 18 do
st1[j] := st[j];
if st1[2] = '3' then
st1[2] := '4';
end;
begin
richedit1.Lines[i]:= st1;
end;
end;
end.

Программа компилируется и вополняеться, но при попытке выполнить изменение строк выводит след. сообщение:

Project Project1.exe raised exception class EAccessViolation with message ' Access violation at address 0045BD14 in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.

при этом указывая на строку:

st1[j] := st[j];

Подскажите пожалуйста в чем моя ошибка и как ее исправить.

[GetMax]

Попробуйте переделать вот так

rocedure TForm1.Button1Click(Sender: TObject);
var
  i,dl:Integer;
  st:String;
begin
  for i:=0 to richedit1.Lines.Count do
  begin
  st := richedit1.Lines[i];
  Dl:=Length(St);
  Delete(St,19,dl-18);
  if st[2] = '3' then st[2] := '4';
  richedit1.Lines[i]:= st;
  end;
end;

end.

[123cmp]

Все равно выбивает ошибку, на этот раз в строке:

  if st[2] = '3' then st[2] := '4';

Я переделывал несколько раз, ошибку всегда выводит при первом обращении к символу строки st[№].

[kangreon]

Стоит поправить

for i:=0 to richedit1.Lines.Count-1 do

тк RichEdit1.Lines.Strings[] Начинается с 0 а richedit1.Lines.Count начинает отсчет с 1.
и

i := richedit1.Lines.Count;
s := RichEdit1.Lines.Strings[i];

не существует. Возможно в этом и ошибка.

[123cmp]

Спасибо. Вы были правы. Программа заработала нормально в таком виде:

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
i:=(-1);
repeat
i:=i+1;
st := memo1.Lines[i];
if st[2]='3' then st[2] := '4';
Delete(St,19,Length(St)-18);
memo1.Lines[i]:= st;
until i = memo1.Lines.Count-1;
end;