Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
Nochmal den ganzen Code bitte *seufz*
Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
Mach mal ausListview1.Add;Listview1.Items.Add;
Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
Und ViewStyle auf vsReport stellen
Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
Und wo ist die Listview bitteschön drauf?
Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
Listview1 liegt anscheinend auf Form1. Also vor jedes "ListView1" "Form1." davorschreiben, damit es erstmal läuft. Guter Stil ist das zwar nicht, aber was soll' s.
Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
ListView1 liegt aber auf Form2?
Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
Himmel, Gesäß und Nähgarn, ich hasse diese Code-Kopiererei ohne Hintergrundwissen :wall:. Also gut, ich vervollständige das mal:uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry;
procedure TForm2.FormCreate(Sender: TObject);
const
UNINST_PATH = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
var
Reg: TRegistry;
SubKeys:...
Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
Du musst das natürlich überall machen und auch die richtige Instanz nehmen. BeginUpdate z.B. gehört nicht zu Reg, sondern zu Listview1.Items. Lass künftig das with besser weg, es sei denn, Du weißt haargenau, was Du tust.
Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
Natürlich. Lösch die withs raus und schreib vor alle Felder den Instanznamen davor. Also statt (Beispiel)with Reg do
RootKey := HKEY_LOCAL_MACHINE;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
Jaja, das böse with. TRegistry kennt keine Eigenschaft ListView1.
Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
Zeig doch mal den Source, wir können nicht hellsehen :glaskugel:
Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
Jepp, Sch... C&P :mrgreen:
Forum: Programmieren allgemein
by DeddyH,
8. Aug 2008
Wenn, dann bitte so:uses ..., Registry;
...
...
function GetPath:String;
var
reg: tregistry;
begin
Result := '';