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