Hallo zusammen,
ich stehe gerade bei dem Form Editor auf dem Schlauch.
Ich versuche den Inhalt einer *.txt Datei als Liste in eine TComboBox zu laden. Die Textdatei wird vorher im CC in den "DOWNLOAD_PATH" heruntergeladen, der auch vorher definiert wurde.
Die Textdatei hat die folgende Form:
Eintrag_1
Eintrag _2
Eintrag _3
Eintrag _4
Mein bisheriger Code im Form Editor lautet:
procedure TCustomACMPWindow(Sender: TObject);
var
ltemp : TStringList;
i : Interger;
begin
ltemp := TStringList.Create;
ltemp.LoadFromFile(GetVarContent('DOWNLOAD_PATH') + 'list.txt');
for i := 0 to (ltemp.count - 1) do
NamederTComboBoxStrings.items.add(ltemp.strings[i]);
end;
Wobei NamederTComboBoxStrings natürlich durch das Attribut "Name" der "TComboBox" ersetzt wird.
{$FORM TCustomACMPWindow, FormUnit.sfm}
uses
Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,
StdCtrls, SysUtils, Buttons, Menus;
procedure OkButtonClick(Sender: TObject);
begin
CloseForm(0);
end;
procedure CancelButtonClick(Sender: TObject);
begin
CloseForm(1);
end;
procedure TCustomACMPWindow(Sender: TObject);
var
ltemp : TStringList;
i : Interger;
begin
ltemp := TStringList.Create;
ltemp.LoadFromFile(GetVarContent('DOWNLOAD_PATH') + 'list.txt');
for i := 0 to (ltemp.count - 1) do
"TComboBoxStrings Name".items.add(ltemp.strings[i]);
end;
Wahrscheinlich nur ein Denkfehler meinerseits, daher bin ich für eure Hilfe dankbar.
Viele Grüße
Lothar