Deutsches Lazarusforum

Hab noch meine Probleme das so Programm so einzudampfen, das ich es hochladen kann. Original 10 MB gezippt ohne exe.
Habe es gerad kaputt abgespeckt. Glücklicherweise eine Kopie.

Per Drag und Drop ziehe ich mir die Bezeichnung einer Struktur bestehend aus Spalten und Zeilen aus einer Listbox auf meine VST. Die Procedure CreateVstSM(sRow: String; sCol: String) wird beim Drop ausgeführt und soll mir die Zeilen und Spalten in der VST aufbauen. In den Parameter sRow und sCol ste...

TestGrid.7z So, jetzt habe ich eine einfache Demo meines Problems hinbekommen. Da ist noch ein alternativer Code am Ende, aber der, um den es sich dreht ist gleich am Anfang: // ----------------------------------------------------------------------------- // Anfang Grid mit SelectEditor procedure T...

Sorry, das ich mich erst jetzt wieder melde. Ich hab versucht mein Programm abzuspecken, um es zu posten. Da wird es dann noch merkwürdiger. Daher ich fange bei 0 neu an. Folgendes will ich erreichen: Ich möchte im StringGrid die Tasten abfangen. - Befinde ich mich in der letzten Zeile, soll bei "Pf...

Hallo Zusammen, ich habe ein Stringgrid und dort im SelectEditor ein TEdit: procedure TfAttrEdit.sgAttrEditSelectEditor(Sender: TObject; aCol, aRow: Integer; var Editor: TWinControl); begin if (sgAttrEdit.Row > 0) AND (aCol < 12) then begin Editor := edAttrName; sgAttrEdit.Editor:=edAttrName; Editor...

Ok. Dann ist nicht falsch bei mir eingestellt.
Mann kann sich ja mit Dummy-Variablen behelfen. Man darf nur nicht vergessen sie wieder aufzuräumen.
Der Compiler hilft ja außerdem beim Aufräumen ungenutzter Variablen.

Wenn ich in beim Debuggen meine Programms mit der Maus über eine Variable gehen, wird mir dessen Inhalt in einem gelben Hint-Fenster angezeigt. Soweit so gut. Mach ich das bei einer Komponente, bekomme ich dies nicht. Vereinfachtes Beispiel: eine Komponente "edName" vom Typ TEdit: edName.Caption := ...

schön und sauber ist toll.
Das verstehe ich dann auch in einem Jahr auch wieder, wenn ich was ändern muss.
Das nehme ich.

Vielleicht ein dumme Frage, aber im Moment beschäftigt sie mich. Gibt es eine elegante Methode, um einen Record in ein Array zu übertragen? Beispiel: TDaten = record Name : String; Vorname: String ... : String; Im Moment fällt mir nur ein: Array[0] := Daten.Name; Array[1] := Daten.Vorname; ... Bei g...

Vielen Dank nochmal für Deine Antworten auf meine Fragen. Auch wenn ich Deinen Code nicht 1:1 übernehmen konnte, hat der Grundsätzlich Lösungsansatz über TStringArray ganz hervorragend mein Problem gelöst. Mittlerweile habe ich das Tool im Einsatz. Mit Spaltenvalidierung, Inhaltsvalidierung, gezielt...

Ja, das stimmt. Ich hatte das Problem mit dem Treeview. Hatte mich schon gewundert, warum bei Dir ein laz. davor steht. Bei den installierten Packages steht bei Virtualtreeview_package die Version 5.5.3.1. Ich habe eine Trunk-Version und auch den Online-Packagemanager installiert. Die Version die ic...

Hallo wp_xyz, ich habe nun eine CSV-Datei mit verfälschtem Inhalt erstellt und diesem Post angehängt (Vater,Kind,Schlüssel). Ich habe diese Datei mit Deiner Lösung getestet. Es kommt das gleich Ergebnis dabei raus. Wenn man sich beim Spaltenaufbau in Inhalt von sa[iCol] ansieht, ist dieser plausibel...

Windows 10, Lazarus-Version 2.0.6 vom 30.03.2020.
Das mit der Datei geht nicht so schnell. Muss mir von der IT erst ein Sharefile freischalten lassen.
Kostenartenstruktur ist zwar nicht so ganz Top-Secret, wäre aber doch irgendwie blöd die im Internet zu finden

Vielen Dank für den Tipp. Du hast mir schon sehr oft geholfen. Tausend Dank dafür. Dein Code "separates the man from the boys". An TStringArray habe ich gar nicht gedacht. Ich bin zwar etwas erfahren aber kein Profi. Ich nutze Pascal gelegentlich für Problemlösungen die bei teuren teuren Kauf-Applik...

Die Option ist gesetzt. Nebenbei. Setze ich einen Breakpoint in GetText, kommt er dort nie an Mache ich folgendes TImportData = record Spalte : String; end; und beim Import Data^.Spalte :=Parse(';',sZeile,1); und im GetText Data := vstImport.GetNodeData(Node); if Column = 0 then CellText := Data^.Sp...