ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Memo1Change(Sender: TObject);
var i:integer;
s:string;
begin
for i:=0 to memo1.Lines.Count do
  begin
  s:=memo1.Lines.Strings[i];
  if length(s)>70 then begin
  delete(s,71,length(s)-70);
  memo1.Lines.Strings[i]:=s;
  end;
  end;

end;

procedure TForm1.ButtonMdaClick(Sender: TObject);
var
  Buffer: array [0..70] of char;
  i: integer;
begin
  for i := 0 to Memo1.Lines.Count do
  begin
    StrLCopy(Buffer, PChar(Memo1.Lines[i]), 70);
    Memo1.Lines[i] := Buffer;
  end;

  while (StrLen(PChar(Memo1.Text)) > 1000) do
     Memo1.Lines.Delete(Memo1.Lines.Count - 1);
end;

var i:integer;
h,buf:String;
begin
For i:= 0 to Memo1.Lines.Count-1 do begin //Цикл перебора строк
h:=Memo1.Lines[i];
while(not (h='')) do begin //Цикл перебор слов (пока строка не закончится)
//Здесь можно сделать счетчик, чтобы выделять определенное слово
if pos(' ',h)>0 then begin  
buf:=copy(h,1,pos(' ',h)); 
delete(buf,length(buf),1); //Пробел перед след. словом нам тут точно не нужен
end else buf:=h; //Ну а ежели в строке только одно слово, то так и выделяем
delete(h,1,length(buf)+1); //Удаляем найденное слово из оставшейся строки, чтобы второе стало первым.
ListBox1.Items.Add(buf); //Здесь находится обработка найденного слова, в моем коде оно добавляется в ListBox1, ты конечно можешь выделять, как хочешь.
end;
end;

...
delete(h,1,length(buf)+1);
If wordnum=needword then begin
Memo1.SelStart:=pos(buf,Memo1.Lines[i])-1;
Memo1.SelLength:=length(buf);
needword:=needword+1; (нам ведь при следующем запуске нужно следующее слово, не так ли?)
end;
end;(конец процедуры)