MemoBox: Funktionen zum finden und ersetzen von strings

[ssach]

hy,
stelle ein paar simple prozeduren zum finden und ersetzen von stringsin TMemo
Zuerst das finden und markieren von strings :

Delphi-Quellcode:

procedure FindMemo(var mem : TMemo; S : string);
var
  COUNTER : integer;
  FOUND : boolean;
begin
  FOUND := false;
  COUNTER := 1;
  while (COUNTER <= length(mem.Lines.Text) - length(S)) AND (FOUND = false) do
  begin
    if copy(mem.Lines.Text,COUNTER,length(S)) = S then
    begin
      FOUND := true;
      mem.SelStart := COUNTER - 1;
      mem.SelLength := length(S);
    end else
      COUNTER := COUNTER + 1;
    end;
  mem.SelStart := COUNTER - 1;
  mem.SelLength := length(S);
end;

dann ersetzen

Delphi-Quellcode:

procedure ReplaceMemo(var mem : TMemo; S,R : string);
var
  COUNTER : integer;
  TEXT : string;
begin
  COUNTER := 1;
  while (COUNTER <= length(mem.Lines.Text) - length(S)) do
  begin
    if copy(mem.Lines.Text,COUNTER,length(S)) = S then
    begin
      TEXT := mem.Lines.Text;
      delete(TEXT,COUNTER,length(S));
      insert(R,TEXT,COUNTER);
      COUNTER := COUNTER + 1;
      mem.SelStart := COUNTER - 1;
      mem.Sellength := length(R);
      mem.Lines.Text := TEXT;
    end else
      COUNTER := COUNTER + 1;
  end;
end;

in den nachsten tagen wede ich das thema ueberarbeiten und erklaereungen zu den einzelnen schritten geben!

cu :witch:

[edit=Matze]Code formatiert. Mfg, Matze[/edit]