Delphi-PRAXiS

SQL: benachbarte Datens�tze mitselektieren

Fri, 03 Jul 2009 21:32:22 +0200

Folgendes Problem.
Meine Datens�tze werden geordnet.
F�r einen bestimmten Datensatz ist der Primary-Key bekannt.

Aus der Tabelle m�chte ich dieses Element inklusive der 2 n�chstkleineren Elemente und der 2 n�chstgr��eren Elemente als Ergebnismenge verarbeiten.

Hat Jemand eine Idee wie ich das mit weniger als 3 Queries schaffen kann?

DLL-EntryPoint mit Funktion tauschen?

Sat, 04 Jul 2009 00:17:45 +0200

Die Frage ist ganz einfach:

(Wie) Kann kann man den DLL-EntryPoint mit einer Exportfunktion tauschen?

Der Hintergrund ist eben so einfach:

Ich m�chte praktisch, da� z.B. Unit-Initialisierungen etwas sp�ter vorgenommen werden,
speziell die von der SysUtils und Co.

Es handelt sich um eine statisch verlinkte DLL und ich h�tt gern, da� diese Initialisierungen erst nach den Intitialisierungen der EXE geschehen (indem ich's dann manuell �ber eine "Init"-Prozedur aufrufe).

Ansonsten m��te ich Einiges mehr umstellen und ...
es handelt sich um die DLL-Version mit Objekten meines himXML
... und au�erdem w�rde dann der MemoryManager der DLL und nicht wie in der aktuell hochgeladenen Version der der EXE verwendet. (obwohl das notfalls auch ginge, nur da� man dann, wie bei ShareMem etwas mehr mit der Unitreihenfolge aufpassen mu�)

Obwohl ... wo ich das hier grad so schreib ... das ShareMem-Problem w�re ja nicht soooo schlimm, aber ich wollte halt ungern unbedingt am MemoryManagement fremder Anwendungen rumspielen und wenn da dann wer einen "alternativen" MemoryManager verwenden w�llte, dann m��te er diesen in der DLL einbauen, da dann der der EXE mit dem der DLL �berschrieben w�rde (im aktuellen himXML ist es ja so, da� die DLL da noch dynamisch geladen wird und den MM der EXE verpa�t bekommt ... in etwa so (Link: http://www.delphipraxis.net/topic159601.html )).

Au�erdem hab ich jetzt schon etwas Zeit in dieses Problem gesteckt
und die direkte External-Verlinkung der Objekte gef�llt mir halt besser, als das "verbigen" eines Objektes mit virtuellen Methoden, wie es in der aktuell onlinestehenden Version der Fall ist.
Und zus�tzlich hatte ich es geschafft die RTTIs der Objekte in der DLL und Exe abzugleichen (is und as funktionieren mit der selben Objektinstanz in beiden Modulen) ... w�re schade das jetzt wieder �ndern zu m�ssen :?

Konzeptfrage FormCreate

Tue, 12 May 2009 08:45:33 +0200

Hallo Gemeinde,

ich m�chte aufgrund der mehrfachen Nutzung das Erzeugen meiner Formulare in eine Funktion auslagern.
Meine Ans�tze hierzu funktionieren soweit auch, jedoch verh�lt sich das ganze in manchen F�llen ein wenig mehrw�rdig:

function createform(AOwner:TFormClass;nform:TForm):boolean;
Begin
try
application.CreateForm(aowner,nform);
nform.Parent:=mainform.panel_df;
mainform.Notebook1.Visible:=false;
nform.Show;
result:=true;
except
result:=false;
end;
end;

//Aufruf:
createform(TForm1,Form1); //Funktioniert

aber: nachdem die Form erzeugt wurde pr�fe ich mit:

if assigned(form1) then machwas
Hier wird seltsamerweise immer false zur�ckgegeben. Setze ich anstelle des Aufrufes der Funktion, die Funktion selbst mit den entsprechenden Werten ein, wird auf die Pr�fung der zugeh�rige Code ausgef�hrt. Meine Vermutung ist nun, dass ich mit den Typen der Parameter etwas vermasselt habe. Leider ist die Delphi 7 Hilfe hier jedoch nicht sehr auskunftsfreudig....also hoffe ich, dass ihr mir helfen k�nnt.
Vielen Dank!

//EDIT: ist die Funktionsbezeichnung kritisch?

Suche nach bestimmten Songtitel

Thu, 02 Jul 2009 19:47:57 +0200

Ich hab jetzt schon �fters die Werbung zu "Der letzte Kuss" mit Hauptrollenbestzung Zach Braff (J.D - Scrubs) gesehen und such die ganze Zeit nach dem Title des St�ckes, das w�hrend der Werbung im Hintergrund rennt.

K�rlich kam es wieder in den Werbungen vor und ich hab nen kurzen Teil davon aufgezeichnet.
Gesucht hab ich selbst auch schon:
http://www.amazon.de/L ... =1246556440&sr=1-1
Ich hab all diese Titel auf Youtube angeh�rt jedoch.. hab ich nicht das passende gefunden...

Vllt. wei� einer von euch, wie der Titel hei�t!?

Danke im voraus

MfG

kann ein Prgramm seinen eingenen Quellcode ver�ndern ?

Thu, 02 Jul 2009 14:30:42 +0200

hey,
ich hab (noch) eine frage ^^

aber da sie ein bisschen kopliziertere ist m�chte ich sie an einem beispiel dalegen.
ich habe ein programm mit einem Memofeld und einem Button 'schlie�en'.
In diesem Memo-feld ist nun ein langer text (z.b. eine geschichte) von anfang an drin.
Also sofort wenn ich das programm starte.
Sie soll in dem Quelltext gespeichert sein, so dass au�er der kopilierten .exe datei nichts anderes n�tig ist um diese 'geschichte' zu lesen.

Nun m�chte ich, dass diese geschichte - wenn ich auf den Button zum beenden dr�ck - mit lauter 'f' �berschrieben wird.
ich k�nnte das auch eigl. schon machen aber ich m�chte nichts in der art
Memo1.text := 'ffffffff' .
Dann w�re ja meine geschichte bei erneutem starten des programmes wieder lesbar.
Ich m�chte, dass diese 'geschichte' aber im quelltext des compilierten programmes durch die 'fff' ersetzt wird
=> wenn ich das programm wieder starte habe ich nur 'fff' im memofeld und kann die geschichte nicht wieder herstellen.

w�re das m�glci h?! und wenn ja - auch hier die frage - wie ?!

ich hoffe ihrversteht was ich meine und k�nnt mir helfen ^^

lg ^^

Set durchsuchen

Fri, 03 Jul 2009 21:47:26 +0200

Hallo ihr,

ich habe ein Set einer Enumeration
type
TEnum = (eA, eB, eC);
TEnums = set of TEnum;

Nun habe ich eine Methode, die je nach Enum-Wert verschieden reagiert und eine Methode mit dem Set:
procedure DoSomething(AEnum : TEnum);
procedure DoSomethingOther(AEnums : TEnums);

Wie kann ich nun in "DoSomethingOther" die Eintr�ge in AEnums durchgehen und mit DoSomething aufrufen?

Also sowas in der der Art:
for i := 0 to Length(AEnums) - 1 do
DoSomething(AEnum );

Ich k�nnte nat�rlich das umst�ndlich machen, aber dass ist an sich ja ziemlich umst�ndlich ;)
if eA in AEnums then
DoSomething(eA);

...

MfG
xZise

Mathe mit Strings (die deutsche StringMatheLib ._. )

Sat, 13 Jun 2009 13:40:54 +0200

Jaaaaaaa, was soll ich sagen ...

� also ich wei�, es ist nicht sonderlich schnell, aber daf�r seeeeeeeehr einfach aufgebaut :angel2:

� es l�uft mindestens ab Delphi 7 (drunter hab ich nicht getestet)
und auch f�r Delphi 2009 ist es geeignet :mrgreen:

� man kann die Verwendung der Unit SysUtils abschalten (incl. der Unit Math, da diese die SysUtils verwendet, aber au�er Max wird daraus eh nix verwendet)

� Zahlen mit theoretisch �ber 1 Milliarde Dezimalstellen sind m�glich

� die Funktionen sind mit deutschsprachigen Namen versehn :shock:

� es steht unter MPL + (L)GPL

� Versionen:
StringMatheLib.pas � Demo 1 � alle Funktionen in einer Klasse verpackt
StringMatheRec.pas � Demo 2 � in einem Record ("MatheString") verpackt und mit Operatoren versehen (ab D2006/TDE)
StringMatheVar.pas � Demo 4 � in einem Variant/"MatheVariant" verpackt und mit Operatoren versehen
StringMatheFloatRec.pas � Demo 3 � wie "MatheString" in einem Record ("MatheStringF") als Festkommazahl
StringMatheParser.pas � Demo 5 � ein kliner Mathe-Parser

� was es derzeit kann ... siehe hier: // Normalisieren alle ung�ltigen und zus�tzlichen Zeichen entfernen
// Formatieren -
//
// Vergleich -
// Vergleich -
// istPositiv -
// istNegativ -
// istGerade -
// istUngerade -
// gibVorzeichen -
// Dezimalstellen -
//
// Summe r = a + b
// Differenz r = a - b
// Plus1 a = a + 1 oder inc(a)
// Minus1 a = a - 1 oder dec(a)
// Negieren a = -a
// Absolut if a < 0 then r = -a else r = a
//
// Produkt r = a * b
// Quotient r = a div b
// Modulo r = a mod b
// QuotientModulo r = a div b und m = a mod b
//
// Quadrat r = a * a oder r = a ^ 2
// Quadratwurzel r = a ^ 1/2
// Quadratwurzel r = a ^ 1/2 und m = a - (a ^ 1/2)
// Potenz r = a ^ b
// Potenz10 r = 10 ^ b
//
// Quotient2 r = a div 2
// Produkt10 r = a * 10^b
// Quotient10 r = a div 10^b
// Modulo10 r = a mod 10^b
// QuotientModulo10 r = a div 10^b und m = a mod 10^b
//
// SummeModulo r = (a + b) mod m
// DifferenzModulo r = (a - b) mod m
// ProduktModulo r = (a * b) mod m
// PotenzModulo r = (a ^ b) mod m
//
// Zufall r = Random(von, bis)

Type MatheString = Type AnsiString;
TVergleich = (vUngleich, vKleiner, vKleinerGleich, vGleich, vGroesserGleich, vGroesser);

TMathe = Class
Property ImmerNormalisieren: Boolean Read _ImmerNormalisieren Write _ImmerNormalisieren;

Function Normalisieren (a: String): String;
Function Formatieren (a: String; TausenderPunkte, ImmerMitVorzeichen: Boolean; Mindestlaenge: Integer = 0): String;

Function Vergleich (a, b: String): TValueRelationship; Overload;
Function Vergleich (a, b: String; Art: TVergleich): Boolean; Overload;
Function istPositiv (a: String): Boolean;
Function istNegativ (a: String): Boolean;
Function istGerade (a: String): Boolean;
Function istUngerade (a: String): Boolean;
Function gibVorzeichen (a: String): Char;
Function Dezimalstellen (a: String): Integer;

Function Summe (a, b: String): String;
Function Differenz (a, b: String): String;
Procedure Plus1 (Var a: String);
Procedure Minus1 (Var a: String);
Procedure Negieren (Var a: String);
Function Absolut (a: String): String;

Function Produkt (a, b: String): String;
Function Quotient (a, b: String): String;
Function Modulo (a, b: String): String;
Procedure QuotientModulo (a, b: String; Var Result, Rest: String);

Function Quadrat (a: String): String;
Function Quadratwurzel (a: String): String;
Procedure Quadratwurzel (a: String; Var Result, Rest: String);
Function Potenz (a, b: String): String;
Function Potenz10 ( b: String): String;
Function Potenz10 ( b: Integer): String;

Function Quotient2 (a: String): String;
Function Produkt10 (a, b: String): String;
Function Produkt10 (a: String; b: Integer): String;
Function Quotient10 (a, b: String): String;
Function Quotient10 (a: String; b: Integer): String;
Function Modulo10 (a, b: String): String;
Function Modulo10 (a: String; b: Integer): String;
Procedure QuotientModulo10(a, b: String; Var Result, Rest: String);
Procedure QuotientModulo10(a: String; b: Integer; Var Result, Rest: String);

Function SummeModulo (a, b, m: String): String;
Function DifferenzModulo (a, b, m: String): String;
Function ProduktModulo (a, b, m: String): String;
Function PotenzModulo (a, b, m: String): String;

Function zuInteger (a: String): LongInt;
Function vonInteger (a: LongInt): String;
Function zuCardinal (a: String): LongWord;
Function vonCardinal (a: LongWord): String;
Function zuInteger64 (a: String): Int64;
Function vonInteger64 (a: Int64): String;

Function Produkt_langsam (a, b: String): String;
Procedure QuotientModulo_langsam(a, b: String; Var Result, Rest: String);
Function Potenz_langsam (a, b: String): String;
End;

� wer die Parameter a und b vor Funktionsaufruf selber normalisiert (also z.B. mindestens einmal nach Eingabe der Werte), der kann .ImmerNormalisieren auf False setzen und es wird dann nicht st�ndig, beim Starten von Funktionen, durchgef�hrt ... es wird so also einen Hauch flotter. :nerd:

Einen Tipp noch zum Schlu�: versucht besser nicht eine "gr��ere" Potenz zu berechnen!
(B also nicht zu gro� w�hlen)
Function TMathe.Potenz(a, b: MatheString): MatheString;
Begin
Result := Potenz_langsam(a, b);
End;
wurde ge�ndert

-- Zitat "ChangeLog" -----------------------

eine Auto-Refresh-CheckBox in den -Button gelegt

mit neuer Lizenz versehen (siehe oben)

- einige Optimierungen
- Produkt10, Quotient10, Modulo10 und Co. hinzugef�gt
- und der MatheParser kam auch dazu
- der Reinfolgefehler aus Beitrag #55 (Potenzen ala x^y^z) wurde behoben

- der Reinfolgefehler aus Beitrag #55 (Potenzen ala x^y^z) wurde behoben

- weitere Fehler behoben ... siehe #57+#58
- der Fehler bei den Klammern ist hoffentlich behoben #60

- Fehler im Parser #61

- der Mathe-Parser-Demo um einige Features erweitert (wie den Zwischenspeicher)
- Verwaltung der Konstanten, Funktionen und Operatoren erstellt (im Mathe-Parser)

- ein bissl aufger�umt
- TMathe.Quadratwurzel, TMathe.PotenzModulo und abh�ngiges stark beschleunigt
- TMathe.Quotient2 eingef�hrt r := a div 2 (Grund f�r vorherigen Punkt)
- Demo6 erstellt = "Flie�komma"-Parser (alles mit # rechnet noch mit "falscher" Nachkommabehandlung)

- Anf�nge eines UnitTests eingef�gt
- XPMan wieder entfernt (#67)
- Fehler behoben (#67 inkompatible Typen)
- TMathe.Produkt nach xZise #67 ge�ndert

- einige Dateien von UTF-8 nach Ansi konvertiert
- wegen #72 Version erh�ht und alles neu kompiliert bzw. hochgeladen
- weitere Konstanten in die Parser eingef�gt

- Fehler bei internen Verwaltungsoperatoren behoben ... z.B. Komma wurde nicht erkannt

- Verz�gerungsfehler in Division entfernt, welcher die Rechenoptimierung abschaltete (#76)
- Vergleichsfunktion optimiert (#76)
- Potenz10, Produkt10 und Quotient10 in StringMatheParserFloat.pas berichtig und freigegeben (Nachkommastellenproblem #76)

- Rechenfehler aus #67 behoben

- Dezimalstellenfunktion mit Fehlerpr�fung versehen und die Anzeiger der Stellen in den Demos etwas umgestellt (siehe #79..#81)

- .Normalisieren und .Formatieren �berarbeitet (#84)
- etwas aufger�umt und die "InFile"-Hilfe erweitert
- doch wieder auf Suche mit Google nach: "7zip" umgestiegen (ist 60% kleiner)

-- Zitat Ende -----------------------

ADO - BIn Daten Lesen/Schreiben

Fri, 03 Jul 2009 11:03:12 +0200

Hallo Gemeinde,

Leider finde ich nichts �ber die Suche und/oder Google bezgl. ADO Connection und Bilder einf�gen. Bzw Lese und in TImage laden.

Gibt es daf�r ein Leitfaden ? Ein paar Begriffe oder ein Beispiel ?

Danke euch...

Gru�, Real-TTX

Einloggen mit Indy 10

Sun, 10 May 2009 15:16:12 +0200

Guten Tag alle zusammen,

ich w�rde gern ein Programm erstellen, welches dem Benutzer erlaubt sich auf einer Seite einzuloggen.
Zu dem Zweck werde ich Indy 10 verwenden.

Die Login-Form sieht so hier aus:

Anf�nger - wie Zahlen zum rechnen in Datei speichern ?

Fri, 03 Jul 2009 12:56:02 +0200

Wie Zahlenreihen mit denen ich sp�ter noch rechnen will in eine Datei speichern ?

Hallo Zusammen

Kurze Vorgeschichte dazu:
Hab mich vor einigen Jahren mal bissel mit Torbo Pascal besch�ftigt ( als die PC's noch langsam genug waren das es lief ) und hab mir nun in den Kopf gesetzt "Delphi" zu lernen. Da ich mich einwenig f�r Zahlenspielerreien interessiere, m�chte ich mir eine Art Lottoprogramm schreiben, um so in die Bereiche Rechnen, Graphische Darstellungen und eventuell in Richtung Datenbanken zu kommen, die mich auch interessieren. Das wird zwar dauern, aber Zeit daf�r hab ich.
Allerdings hab ich hier in meiner Gegend nicht die M�glichkeit das an einer Schule zu lernen noch noch im Bekanntenkreis, jemanden zum Fragen, also w�rde ich gern eure Hilfe in Anspruch nehmen.
Nun zu meinem Problem. Ich hab mir �berlegt in welcher Art ich meine Daten am besten abspeichere. Da ich sp�ter noch damit rechnen m�chte hab ich mich f�r ein Array entschieden, aber das klappt irgendwie nicht, k�nntet ihr mir einen Tip geben ?
Und ich hab zwischendurch mal die Fehlermeldung : "E/A Fehler 6" erhalten und hab trotz zwei B�cher und Hilfedateien keine Erkl�rung daf�r gefunden. Wo kann ich beoi solchen Fehlermeldungen da nachschauen ?

-------------------------------------------------------------------------------------------
var
Form1: TForm1;
z1 , z2 , z3 , z4 , z5, z6 , zz : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Edit1Exit(Sender: TObject);

Var
Nr : integer;
zahlenreihe: String;
MyFile : array of integer ;

begin
if (Edit1.Text='') or
(Edit2.Text='') or
(Edit3.Text='') or
(Edit4.Text='') or
(Edit5.Text='') or
(Edit6.Text='') or
(Edit7.Text='') then
exit;

z1 := StrToInt(Edit1.Text);
z2 := StrToInt(Edit2.Text);
z3 := StrToInt(Edit3.Text);
z4 := StrToInt(Edit4.Text);
z5 := StrToInt(Edit5.Text);
z6 := StrToInt(Edit6.Text);
zz := StrToInt(Edit7.Text);

if (z1<1) or (z1>49) then exit;
if (z2<1) or (z2>49) then exit;
if (z3<1) or (z3>49) then exit;
if (z4<1) or (z4>49) then exit;
if (z5<1) or (z5>49) then exit;
if (z6<1) or (z6>49) then exit;
if (zz<1) or (zz>49) then exit;

if (z1>=z2)or(z1>=z3)or(z1>=z4)or(z1>=z5)or(z1>=z6)or(z1=zz)then exit;
if (z2>=z3)or(z2>=z4)or(z2>=z5)or(z2>=z6)or(z2=zz)then exit;
if (z3>=z4)or(z3>=z5)or(z3>=z6)or(z3=zz)then exit;
if (z4>=z5)or(z4>=z6)or(z4=zz)then exit;
if (z5>=z6)or(z5=zz)then exit;
if z6=zz then exit;

// Zahlenreihe eingeben, Datei anlegen, bzw. Zahlen speichern, letzte Zahlenreihe mit Nummer ausgeben
MyFile := z1 ;
MyFile := z2 ;
MyFile := z3 ;
MyFile := z4 ;
MyFile := z5 ;
MyFile := z6 ;
MyFile := zz ;

AssignFile(MyFile,zahlenreihe);
{$I-}
if FileExists(zahlenreihe) then
Reset(MyFile)
else
ReWrite(MyFile);
{$I+}
if IOResult=0 then
begin;
System.Seek(MyFile,SizeOf(MyFile));
Write(MyFile,Nr);
end;
CloseFile(MyFile);

Edit8.Text := IntToStr(Nr, zahlenreihe);

end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ) then
Key := #0;
end;

end.

-------------------------------------------------------------------------------------

Ich glaub ich hab neben meiner Unkenntnis noch einige Gedankenfehler drin. Bitte euch um Hilfe.
Noch etwas dazu, ich weiss das die Bedingungen auch ziehmlich umst�ndlich geschrieben sind, mir geht es in erster Linie um die Funktionalit�t damit ich es auch verstehe. Wenn es dann l�uft werde ich mich um eine bessere Schreibweise k�mmern. Da das ganze lernen etwas l�nger dauern d�rfte, m�chte ich eines nach dem anderen machen.
(Hoffe hab mich bei der Programmschreiberrei nicht zu doof angestellt)

Soweit mein Anliegen an euch.
Gru� Jiron

DBGrid Spalte f�llen

Fri, 03 Jul 2009 21:14:30 +0200

Hi,

ich habe ein DBGrid welches mehrere Spalten hat, die ich mit SQL f�lle. Ich m�chte aber eine zus�tzliche Spalte manuell f�llen.
Kennt jemand eine M�glichkeit?

Vielen Dank!
Lg Maja

alle Objecte der Hauptform an andere Unit �bergeben?

Fri, 03 Jul 2009 19:54:18 +0200

hallo,

ich wollte viele Functions und Procedures der hauptform auslagern in eine extra unit, zur Programm�bersichtlichkeit.

Ich m�chte gerne mit allen Objecten (Labels ScrollBoxes usw.) etwas anstellen in der Unit, nur nicht jedes einzellen Object �bergeben.

Wie kann man es anstellen, dass ich alle Objecte der Hauptform an die zweite Form �bergeben kann?

Falls es schon nen Beitrag zu diesem Problem gibt, dann bitte den Link Posten!

Vielen Dank!

LG Marco!

Farbe von Bildschirminhalt ermitteln ?

Thu, 02 Jul 2009 00:18:18 +0200

Hi,

ich habe beriets rausgefunden wie man die Farbe eines bestimmten Pixel auf dem Bildschirm ermitteln kann.

Ich bin gerade dabei ein Art Ambilight zu programmieren, welches mir die �berweigende Farbe in einem bestimmten Bereich des Bildschirms ausgeben soll.

Meine Fragen dazu ist nun wie kann man am besten eine Berechnung der �berweigenden Farbe realisieren ?

Um es nochmal ein wenig vorstellbarer zu umschreiben. Ich nehme mal eine Fl�che von 500x500px in der Bildschirmmitte die darin enthaltenen Pixel sollen nun ausgewertet werden und die am h�ufigsten vorkommende Farbe soll ausgegeben werden. Dabei reicht allerdings nicht die Aussage Rot, Gr�n, Blau, usw. �berwiegt, sondern es sollte schon ein genauer Farbwert sein.

Ich hoffe mir kann da jemand auf die Spr�nge helfen.

mfg Yannic

Virtual Treeview MultiSelect/Onchange Event Problem

Fri, 03 Jul 2009 15:13:56 +0200

Hi Leute,

ich verwende den Virtual Treeview als Navigationshilfe durch ein Mehrschichtiges Dokument.
Wird jetzt im Tree ein Node markiert, soll das ganze auch im Dokument entsprechend markiert werden.
Dazu verwende ich den Event Onchange des Virtual Trees.

In diesem Event wird der Node �bergeben dessen Status sich �ndert :

procedure TXyzForm.vst_DocExplorerChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
Var pNodeData : PTTreeData;
begin
pNodeData := vst_DocExplorer.GetNodeData(Node);
if (Assigned(pNodeData)) and (Assigned(PNodeData^.Line)) then
pNodeData^.Line.Selected := vst_DocExplorer.Selected ;
end;

Das ganze funktioniert auch "wunderbar" das Event tritt immer ein wenn ein Node markiert wird.
Allerdings bekomme ich nicht mit wenn die Markierung/Selektierung aufgehoben wird.

Situation: Multiselect des Trees ist an, 2 Nodes sind markiert, es wird auf einen anderen Node geklickt.
Annahme: 3 x das Event OnChange 2 x f�r die vorher selektierten und 1 x f�r den neuen selektierten.

^^ Das ist aber leider nicht der Fall, wei� jemand warum ?
Oder bin ich im falschen Event ?

Nachtrag: Das Event tritt immer nur 2 x ein, egal ob vorher 2,4 oder 8 Eintr�ge selektiert waren.

Greetz Data

Serialisierung von TCollection mit TXMLSerializer

Wed, 01 Jul 2009 16:29:21 +0200

Hallo,

ich benutze den XMLSerializer von dragonsoft und hab nun leider damit ein Problem:

Ich habe von TCollection und TCollectionItem abgeleitete Klassen die ich serialisiere und als XML-Datei speicher. Das klappt soweit auch ganz gut:

Die Klassen:

type
TStorageItem = class(TCollectionItem)
private
FText: String;
function GetM_sText: string;
procedure SetM_sText(Value: string);
published
property Text: String read GetM_sText write SetM_sText;
end;

type TStorage = class(TCollection)
private
function GetItem(Index: Integer): TStorageItem;
procedure SetItem(Index: Integer; const Value: TStorageItem);

public
function Add: TStorageItem;
function FindItemID(ID: Integer): TStorageItem;
function Insert(Index: Integer): TStorageItem;
property Items : TStorageItem read GetItem write SetItem;
end;

Die Routine zum Speichern:

procedure TForm1.Button1Click(Sender: TObject);
var
coTest: TStorage;
coStore: TStorageItem;
begin
coTest := TStorage.Create(TStorageItem);

coStore := coTest.Add;
coStore.Text := 'Test';

coStore := coTest.Add;
coStore.Text := 'Test2';

coStore := coTest.Add;
coStore.Text := 'Test3';

with TXMLSerializer.Create(self) do
begin
XMLSettings.WellFormated := true;

StorageOptions := ;
SpecialClasses := ;

SaveObject(coTest, 'Test');

SaveToFile('C:test.xml');
end;
end;

Nun probiere ich diese Collection wieder aus der XML auszulesen also zu deserialisieren:

var
coTest: TStorage;
coStore: TStorageItem;
i: Integer;
begin
coTest := TStorage.Create(TStorageItem);

with TXMLSerializer.Create(self) do
begin
XMLSettings.WellFormated := true;

SpecialClasses := ;

LoadFromFile('C:test.xml');

LoadObject(coTest, 'Test');
end;

ListBox1.Clear;

for i := 0 to coTest.Count - 1 do
begin
ListBox1.AddItem(coTest.Items .Text, nil);
end;

Das ganze Funktioniert nicht (coTest.Count ist immer 0). Ich habe mir den Quellcode der Deserialisierungsroutinen mal angeschaut und diese versucht per SetPropValue() die Count-Eigenschaft von meiner TStorage-Klasse zu manipulieren. Da diese aber Read-only ist, klappt das nicht.

Hat jemand eine Idee wie ich das Problem l�sen k�nnte?

Gr��e