Hej,
Når jeg prøver at bruge denne her kode får jeg en mærkelig fejl...
PosReturn := Pos(SSub,Memo1.Text);
Nogen der lige kan se hvad fejlen er?
/Mads
Hvad peger SSub på?
Med venlig hilsen
Dennis Lauritzen
Her er selve koden, som leder efter stringen:
procedure TForm2.SearchText(SSub: String; CaseSen: Boolean);
var
PosReturn: Integer;
begin
//Tjek om den er Case Sensitive
If CaseSen then
begin
//Find Teksten
PosReturn := Pos(SSub,Memo1.Text);
If PosReturn <> 0 then
begin
//Marker teksten
Memo1.SetFocus;
Memo1.SelStart := Pos(SSub, Memo1.Text);
Memo1.SelLength := Length(SSub);
end;
end
Else
begin
//Find Teksten
PosReturn := Pos(LowerCase(SSub), LowerCase(Memo1.Text));
If PosReturn <> 0 then
begin
//Marker teksten
Memo1.SetFocus;
Memo1.SelStart := Pos(LowerCase(SSub), LowerCase(Memo1.Text));
Memo1.SelLength := Length(SSub);
end;
end;
end;
Og her er den kode, som kalder funktionen:
procedure TForm3.Button1Click(Sender: TObject);
begin
Form3.Hide;
TForm2(ActiveMDIChild).SearchText(Edit1.Text, CheckBox1.Checked);
end;
Og nej... Det er ikke fordi nogle af dem er tomme
/Mads