TlistView mit DLL an Programm übergeben -- Hilfe :D

[hedie]

Hallo

Ich habe das hier in einer DLL

result.AddItem(ini.ReadString(inttostr(ii),'name','db Error')); Weshalb geht das nicht?

[Bernhard Geyer]

Was geht wie nicht? Fehlermeldung, ...?

[hedie]

Ja es kommt zu wenig parameter ich weiss das es noch einen Parameter vom typ TObject erwartet aber ich weiss nicht was da rein kommen soll

Ach sorry volkommen vergessen den rest zu Posten

Delphi-Quellcode:

function listdbn():Tlistview;stdcall;
var i,ii:integer;
begin
try
result := tlistview.Create(nil);
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+inifn);
i := ini.ReadInteger('Config','dbc',1);
ii := 0;
repeat
result.AddItem(ini.ReadString(inttostr(ii),'name','db Error'));
ii := ii + 1;
until ii = i;
finally
ini.Free;
end;
end;

[Dax]

Was bitte ist "result"?

[hedie]

Siehe oben meinen Edit

[Helmi]

Wo ist die Variable "ini" definiert?

[hedie]

die is global definiert also an dem wird net liegen

Ich muss da noch etwas weiter ausholen

Es geht da um eine Musik also mp3 Datenbank zu beginn hab ich Listbox verwendet und einfach
TStrings übergeben, da konnte man einfach result.add .... machen

Dan is mir aufgefallen das tlistview wegen den Spalten viel besser is und bin auf listview umgestiegen
weil liestview tstrings nicht akzeptiert muss ich nun TListview direkt übergeben (Von der DLL Aus!!)

Aber bei TListview kann man nicht mehr einfach result.add machen sondern muss da noch mehr angeben


Bin allen tipps gegenüber offen

[Apollonius]

Setze einfach als zweiten Parameter nil ein, wenn du TListItem.Data sowieso nicht verwendest. Was hältst du eigentlich von der Delphi-Hilfe?

[Helmi]

Ich hab mir zum Hinzufügen eines Eintrages in eine ListView mal eine eine Procedure geschrieben:

Delphi-Quellcode:

procedure ListView_neuer_Eintrag(ListView: TListView; const ersteSpalte,
  Rest_CommaText: String; Checked: Boolean = true);
var
  ListItem: TListItem;

begin
  with ListView do
    begin
      ListItem := Items.Add;
      ListItem.Caption := ersteSpalte;
      ListItem.SubItems.CommaText := Rest_CommaText;

      If Checkboxes then
        Items.Item[Items.Count - 1].Checked := Checked;
    end;
end;

Die Variable "Rest_CommaText" ist die für die Spalten >= 2.

Aufruf:
ListView_neuer_Eintrag(Result, ini.ReadString(inttostr(ii)), 'name,db Error'); [edit]
Diese Procedure fügt einen Eintrag immer am Schluss an.
Solltest du Checkboxen verwenden, so kannst du mit "Checked" angeben, ob diese true oder false sein soll, Default-Einstellung: true
[/edit]

[Nuclear-Ping]

[OT]
Ich finds ja immer wieder interessant, wieviele Leute gleich mit "Delphi X Enterprise" oder wie hier "RAD-Studio 2007 Architect" (für ~2k EUR) in die Delphi-Welt einsteigen ... ... Ein Schelm, wer böses dabei denkt ...
[/OT]