Работа с файлами

[RatMir]

Помогите, пжалуста, с прогой: Написать программу, которая открывает текстовый файл (в МЕМО), в этом текстовом файле в словах, начинающихся с буквы "в", первую букву(т.е "в") заменить на "у" (например, Велосипед- Уелосипед). Уже месяц мучаюсь.

[Olympian]

На чем надо написать?

[Greblin]

Держи код. Пришлось сшаманить, ибо, как выяснилось, непосредственно изменять символ в строке Memo нельзя. Разделители слов сам добавишь, лень все вспоминать

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
const Razd: set of char =
  [' ','.','!','?',',',':',';','(',')'];
var i, j: integer;
    s: string;
begin
for i := 0 to Memo1.Lines.Count-1 do
  for j := 1 to Length(Memo1.Lines[i]) do
    begin
    if (j = 1) then
      begin
      if Memo1.Lines[i][j] = 'в' then
        begin
        s := Memo1.Lines[i];
        s[j] := 'у';
        Memo1.Lines[i] := s;
        end
      else
        if Memo1.Lines[i][j] = 'В' then
          begin
          s := Memo1.Lines[i];
          s[j] := 'У';
          Memo1.Lines[i] := s;
          end;
      end
    else
      if Memo1.Lines[i][j-1] in Razd then
        begin
        if Memo1.Lines[i][j] = 'в' then
          begin
          s := Memo1.Lines[i];
          s[j] := 'у';
          Memo1.Lines[i] := s;
          end
        else
          if Memo1.Lines[i][j] = 'В' then
            begin
            s := Memo1.Lines[i];
            s[j] := 'У';
            Memo1.Lines[i] := s;
            end;
        end;
    end;
end;

[RatMir]

O_G_R_O_M_N_O_E S_P_A_S_I_ B_O !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!