Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
12. Jun 2007
Mit Kanone auf Spatz geschossen - aber getroffen:
function findtextall(re: TRichEdit; sText: string; options:TSearchTypes): TIntegerdynarray;
var
istart, ifound, ilength: integer;
begin
setlength(result, 0);
istart := 0;
ilength := length(re.Lines.Text);
while istart < (ilength - length(stext)) do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
12. Jun 2007
Der Fehler liegt beim StringReplace!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
12. Jun 2007
Wenn ich den Text markiere und den Button wieder "löse", springe ich dann nicht auf Index 0?
Das Zauberwort heisst wohl down!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by moperswings,
12. Jun 2007
Hallo,
könnt Ihr mal einen Blick auf diesen Code werfen. Case 1 ist richtig. Aber wenn ich die Markierung wieder rausnehmen möchte, wird mir ein angehangen.
Habe ich einen Logik oder Verständisfehler?
// Eigenschaften:
// allowallup -> true;
// groupindex -> 1;
procedure TForm1.SpeedButton1Click(Sender: TObject);