Вот тебе универсальная функция, которая возвратит набор слов, которые начинаются с указанного символа:
Код:
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;
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
|