Memo içindeki yazıyı bulmak

[paranoyaks]

Memo nesnesi içine yazılı uzun bir yazı olduğunu varsayın her bir satırdaki ilk iki kelimeyi ve son iki kelimeyi bulup rengini değiştirmek istiyorum
*çözüm bulamadığım için memo yerine label nesnesi kullandım ilk iki kelime ve son iki kelimelerini ayırdım fakat form büyütülünce yazdığım yazılar sabit kalıyor memoda yapmak istememin sebebi formu tam ekran da yapsa küçültsede her satırda ilk iki kelime ve son iki kelimeyi seçtirmek istiyorum bunun bir döngü şeklinde yukarıdan aşağıya devam etmesi gerekiyor yukarıdan aşağıya doğru her iki kelimeyi satır satır sırası ile seçtikce renklerinin değişip bir sonraki satıra geçtiğinde renklerinin normale dönmesi gerekiyor
biraz uzun bir yazı oldu umarım anlatabilmişimdir vaktinizi almak istemezdim ama bir çözüm bulamadım herkese şimdiden teşekkür ederim iyi çalışmalar.

[mrmarman]

RichEdit kullanırsan kolayca yaparsın.

SelStart, SelLength, SelAttribute ile konumlanır, seçer, rengini, kalınlığını yani tipini değiştirip sunumunu gerçekleştirebilirsin.

Örnek :

Kod: Tümünü seç

procedure RichEdit_IlkIkiKelimeRenkli( RichEdit:TRichEdit );
Var
  iSatir : Integer;
  strIcerik, strSatir, strBlok : String;
begin
  strIcerik := '';
  for iSatir := 0 to RichEdit.Lines.Count - 1 do
  begin
    strSatir  := RichEdit.Lines[iSatir] + ' ';

    // Satır Başını Bulduk...
    RichEdit.SelStart := Length(strIcerik);
    strBlok   := '';
    // İlk Kelimeyi Aldık...
    strBlok := strBlok + Copy( strSatir, 1, Pos(' ', strSatir) );
                System.Delete( strSatir, 1, Pos(' ', strSatir) );
    // ikinci kelimeyi Aldık.
    strBlok := strBlok + Copy( strSatir, 1, Pos(' ', strSatir) );
                System.Delete( strSatir, 1, Pos(' ', strSatir) );
    RichEdit.SelLength := Length(strBlok);
    RichEdit.SelAttributes.Color := clRed;
    RichEdit.SelAttributes.Style := [fsBold];
    strIcerik := strIcerik + RichEdit.Lines[iSatir] + '  ';
  end;
end;


//Kullanımı
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  RichEdit_IlkIkiKelimeRenkli( RichEdit1 );
end;

[paranoyaks]

Bugün bana çok yardımınız dokundu hakkınızı helal edin şu an diğer konudaki sql ile uğraşıyorum bitirdiğim gibi bunu inceleyecem bir sorun olmaz umarım takıldığım bir yer olursa tekrar yazarım çok sağolun iyi çalışmalar