Brauche Hilfe zu mehreren Fragen

[Zyancali]

Hi @ all!

Ich brauche mal wieder Hilfe, und zwar folgender massen:

1. "Ersetzen" Funktion:
Ich habe mal ein bisschen in der Delphi Hilfe geschnüffelt,
und folgenden Code gefunden:

Delphi-Quellcode:

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);

var
  SelPos: Integer;
begin
  with TReplaceDialog(Sender) do
  begin
    { Globale, schreibweisensensitive Suche nach FindText in Memo1 }
    SelPos := Pos(FindText, Memo1.Lines.Text);
    if SelPos > 0 then
    begin
      Memo1.SelStart := SelPos - 1;
      Memo1.SelLength := Length(FindText);
      { Markierten Text durch ReplaceText ersetzen }
      Memo1.SelText := ReplaceText;
    end

    else MessageDlg(Concat('Der Suchtext "', FindText, '" konnte in Memo1 nicht gefunden werden.'), mtError, [mbOk], 0);
  end;
end;

Wäre es möglich anstatt diesen Code ein einfacheren, kleineren Code zu benutzen?

2. Reguläre Ausdrücke:
Kann mir bitte jemand dessen Code erklären (und vieliecht Beispiele liefern)?

3. "Substr" Funktion:
In PHP gibt es eine Funktion namens "substr".
Ihre Syntax:
substr(string inhalt, integer start, integer ende);
Diese Funktion geht so:
substr nimmt den string inhalt und schneidet sich die zeichen aus, beginnend bei (der integer-zahl) start bis zu zur zahl ende.


Gibt solche eine Funktion (oder irdendeinen Code) der sowas mach ?
Wenn ja, bitte Beispiel


4. Bilder in einer Memo/Richedit:
Ich weiss das dieses Thema schon sehr oft hier durchgemixt worden ist,
aber alle Links zu den Beispielen (sei es http://www.swissdelphicenter.com oder http://www.torry.net) benötigen spezielle Komponeten (zB Swissdelphicenter-Beispiele) die es (google nach)
nirgends mehr gibt!

Kennt jemand eine Komponente (die man downloaden kann (gratis natürlich)) die sowas kann oder
einen Code der keine zusätzlichen (ausser Standart) Komponenten braucht ?



Danke im Voraus !

PS: Ich habe Delphi 6 Professional