Wohnwagen-Angebot

Posted on November 29, 2008

Wir besitzen seit einiger Zeit schon einen sehr schönen Wohnwagen am Riegsee. Leider können wir diesen in nächster Zukunft nicht sehr häufig nutzen, sodass sich es schlicht nicht lohnt.

Wir bieten ihn deshalb zum Kauf an. Er steht auf einem sehr schönen und vor allem ruhigen Stellplatz der einer der besten auf dem Campingplatz ist.

Ich habe eine kleine Webseite gemacht mit Bildern und Kontaktdaten:

http://www.aplana.de/ww/

Bei Interesse also Kontakt aufnehmen…

Read more

Schnelle StringReplace in Delphi

Posted on Juni 5, 2008

Vor kurzem hatte ich das Problem, dass die StringReplace-Funktion in Delphi sehr langsam wird, wenn der String lang ist. Ich hab das Problem sehr oft, z.B. Zeilenumbrüche aus großen Strings durch Leerzeichen zu ersetzen usw.

Meine Recherche im Internet ergab zwar einige Treffer mit Verbesserungen um Faktor 3-10, aber ich habe dann stattdessen einfach versucht, den String zu unterteilen und die Funktion einfach auf kleinere Strings anzuwenden. Das Problem dabei ist aber, dass an der Schnittstelle, dort wo eine Unterteilung ist, das alte Pattern vielleicht zerschnitten wurde. Dem muss man Rechnung tragen.

Heraus kam diese Funktion, die eine Verbesserung um Faktoren bis zu 100 bringt!
Hier ist es einfach mit der Option [RfReplaceAll] gemacht.

function StringReplace_schnell(s,oldpattern,newpattern: String; abschnitte: integer=255): String;
var i,k,le, le2m1, lem1, ende: integer; s1: String;
oldpatterngeschnitten: boolean;
begin
Result:='';
le:=Length(oldpattern);
le2m1:=le+le-1;
lem1:=le-1;
k:=0;
repeat
//Problem ist, dass das oldpattern vielleicht gerade hier ist,
//wo der Schnitt gemacht wird...
ende:=k+Abschnitte;
oldpatterngeschnitten:=Pos(oldpattern,copy(s,ende-lem1,le2m1))>0;
if oldpatterngeschnitten then begin
repeat
ende:=ende+le;
oldpatterngeschnitten:=Pos(oldpattern,copy(s,ende-lem1,le2m1))>0;
until not oldpatterngeschnitten;
end;
s1:=copy(s,k+1,ende-k);
k:=ende;
Result:=Result+StringReplace(s1,oldpattern,newpattern,[RfReplaceAll]);
until s1=”;
end;

Ich habe das getestet und Geschwindigkeitsvorteil bis Faktor 100 festgestellt.

Update Feb. 2009:
Ich habe nach einigen Tests die Erfahrung gemacht, dass ein Wert von 255 Zeichen für die Unterteilung ein guter Wert ist, den man in vielen Fällen standardmäßig einsetzen kann. Ich habe diesen Algorithmus unter diesem Aspekt unter vielen Situationen daraufhin überprüft.

Vor allem ist zu sagen, dass die verschiedenen Versionen von Delphi hier auch unterschiedlich reagieren. So muss man unter seiner eigenen Entwicklungsumgebung selbst entscheiden, was der beste Wert ist. Ausserdem ist auch die zu erwartende Verteilung des Suchbegriffs ein Einflußfaktor.
Viele Grüße
Andreas Lindae

Dreifachklicks in Delphi

Posted on Juni 3, 2008

4. Dezember 2007

Oft steht man vor dem Wunsch, z.B. per Dreifachklick ein Editierfeld vollständig zu markieren o.ä.

Es gibt nun keinen Event wie den DblClick-Event, den man da einfach benutzen kann. Man kann sich aber wie folgt behelfen: Wenn jemand dreifach klickt, dann macht er zuerst einen Doppelklick und dann noch einen einfachen Klick. Der einfache Klick muss aber folgende Eigenschaften haben:

1.) Er darf nicht zu spät kommen
2.) Die Maus darf nicht sehr weit bewegt worden sein.

Ich gehe mal davon aus, dass man die Maus 4 Pixel bewegen darf und frage hier keine Systemeigenschaften ab.

Bei der Zeit ist es aber so, dass viele Anwender die Doppelklickgeschwindigkeit ändern, sodass man das berücksichtigen sollte. Das kann man mit der Windows-API-Funktion GetDoubleClickTime ermitteln.

Also, hier ist der Code für einen Dreifachklick auf Edit1:

1.)Definiere in der Form die Variablen:
dblclickinterval, dblclicktime, dblclickx, dblclicky: cardinal;

2.) In Formshow (nicht in FormCreate, was - zumindest in D2007 - zum Chaos führt) das Intervall ermitteln:

procedure TForm1.FormShow(Sender: TObject);
begin
dblclickinterval:=windows.GetDoubleClickTime;
end;

3.) Dbl von Edit1: Werte merken.

procedure TForm1.Edit1DblClick(Sender: TObject);
begin
dblclickx:=mouse.CursorPos.X;
dblclicky:=mouse.CursorPos.Y;
dblclicktime:=GetTickCount;
end;

4.) Klicken von Edit1 anfangen und auswerten:

procedure TForm1.Edit1Click(Sender: TObject);
begin
if GetTickCount-dblclicktime<=dblclickinterval then begin
if (abs(mouse.CursorPos.X-dblclickx)<=4) and (abs(mouse.CursorPos.Y-dblclicky)<=4)
then begin
Edit1.SelectAll;
end;
end;
end;

SelectAll beim TEdit gibt es vielleicht in früheren Delphiversionen nicht, oder es funktioniert einfach nicht. Es geht aber in D2007. In älteren Versionen muss man evtl. dem TEdit eine Botschaft senden, die den Text markiert.

---

Willkommen

Posted on Mai 28, 2008

Willkommen auf meiner “privaten Seite”, wo ich ab und zu Neuigkeiten schreibe (oder neudeutsch: “blogge”).

Hier gibt es Informationen zu verschiedenen Themen, die mich interessieren.

Einerseits bin ich seit Jahren Entwickler von Software für Windows und Webapplikationen (Rubrik “Delphi”). Ich habe hier Delphi gewählt, da es eine wirklich ausgezeichnete Entwicklungsumgebung ist, die mich als Entwickler sehr produktiv machen kann. Ausserdem ist es mein Favorit unter den vielen Sprachen, die in der IT-Welt herumgeistern. Delphi ist eigentlich mehr eine Philosophie statt einer Programmiersprache. Ab und zu poste ich hier Sourcecode oder Tipps und Tricks, besonders zu Situationen, wo ich selbst Schwierigkeiten hatte, etwas Brauchbares im Web zu finden.

Auf der anderen Seite interessiere ich mich auch für wirtschaftliche Dinge. Inzwischen ist dies zunehmend durch eigene Erfahrungen motiviert.

Seit langer Zeit bin ich in einer großen Firma beschäftigt und erlebe das Auf und Ab und die internen Schwierigkeiten, die existieren können und der Firma als Ganzes das Leben schwer machen.
Die wirtschaftliche Lage in Deutschland hat in den letzten 2 Jahrzehnten viele Höhen und Tiefen mitgemacht. Wie sich Konjunktur, Erfolge und Rezessionen anfühlen, weiß ich also.

Aus der Bekannschaft zu Roland Stahl wurde mir die Antwort auf die Frage, wie Erfolg einer wirtschaftlichen Aktivität zustandekommt, erst richtig bewußt und verständlich. Auf der Strategie-Seite gehe ich näher darauf ein.

Und nun wünsche ich viele interessante Dinge zu lesen auf dieser Webseite!
Viel Spaß

Andreas Lindae