Delphi. Программа берет 1-ю строку из файла. Нужно удалить все точки, и каждую первую букву всех слов сделать заглавной.

[igrok111]

точки заменить на "ничего", а не на "пробелы".

var
I : Integer;
t: TStringList;

t := TStringList.Create;
t.LoadFromFile('file.txt', Tencoding.UTF8);
Memo3.Clear;

for I := 0 to t.Count - 1 do
Memo3.Lines.Add(t.Strings[I]);

Edit3.Text := Memo3.Lines.Strings[0];

[FaTaL]

А где вопрос то?
Точки заменить поможет функция ReplaceString, дальше пробегаешься по всей строке в цикле от начала строки до конца и если находишь пробел, то меняешь последующую букву на заглавную функцией UpperCase например.

[SQLPowerUser]

Дайте пример исходной строки (та, что в Edit3) и результат, что должно получиться.

[3D Hunter]

//метод
function EditString(const AStr:string):string;
begin
  Result:=StringReplace(AStr,'.','',[rfReplaceAll]);
  if Length(Result)>0 then
    Result[1]:=UpperCase(Result[1])[1];
end;

//использование
procedure TForm2.FormCreate(Sender: TObject);
begin
  ShowMessage(EditString('datase....t is clo...se'));
end;

[igrok111]

Сообщение от 3D Hunter

//метод
function EditString(const AStr:string):string;
begin
  Result:=StringReplace(AStr,'.','',[rfReplaceAll]);
  if Length(Result)>0 then
    Result[1]:=UpperCase(Result[1])[1];
end;

//использование
procedure TForm2.FormCreate(Sender: TObject);
begin
  ShowMessage(EditString('datase....t is clo...se'));
end;

Спасибо. Ваша функция удаляет точки, но она почему-то не изменяет буквы на заглавные. А точнее оно делает первую букву большой, но мне нужно что бы все слова начинались с заглавной. На вашем примере:
Dataset Is Close - вот, что должно получится.

[Serge_Bliznykov]

Это Вы три недели проверяли?! o_O!

//метод
function EditString(const AStr:string):string;
var i : integer;
begin
  Result:=StringReplace(AStr,'.','',[rfReplaceAll]);
  if Length(Result)>0 then begin
      Result[1]:=UpperCase(Result[1])[1];
      for i:=2 to Length(Result)-1 do
        if (Result[i]=' ') and (Result[i+1]<>' ') 
              then Result[i+1]:=UpperCase(Result[i+1])[1];
  end; 
end;

p.s. код не проверял, доверяю проверку и отладку Вам