Показать сообщение отдельно
  #2  
Старый 22.03.2016, 00:03
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Сообщения: 340
Версия Delphi: 11.3
Репутация: 429
Сообщение

Вот тебе универсальная функция, которая возвратит набор слов, которые начинаются с указанного символа:
Код:
function GetWords(aSource: String; aSymbol: Char): TStringList;
var
  SL: TStringList;
  I: LongWord;
begin
  SL := TStringList.Create;
  with SL do
    begin
      LoadFromFile(aSource);
      Delimiter := ' ';
      DelimitedText := Text;
      for I := Count - 1 downto 0 do
        if Copy(SL[i], 1, 1) <> aSymbol then
          Delete(I);
    end;
  Result := SL;
end;
Пример вызова:
Код:
procedure TForm2.Button1Click(Sender: TObject);
var
  I: LongWord;
  SL: TStringList;
begin
  Memo1.Clear;
  SL := GetWords('Test.txt', 'А');
  for I := 0 to SL.Count - 1 do
    Memo1.Lines.Add(SL[i]);
  SL.Free;
end;
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
Ответить с цитированием