Fórum Combobox Edit TXT = Problema #196614

Lista: TStringList;

TForm.FormCreate...
begin
  Lista := TStringList.Create;
end;

TForm.FormDestroy...
begin
  Lista.Free;
end;

TForm.FormShow...
begin
  Lista.LoadFromFile(´drive:\caminhos\arquivo.txt´);
end;

var
 cont: integer;
begin
  ...
  ComboBox.Items.AddStrings(Lista);
  for cont := 0 to ComboBox.Items.Count -1 do
    ComboBox.Items[cont] := Copy(ComboBox.Items[cont],1,Pos(´||´,ComboBox.Items[cont]) - 1);
end;

TForm.ComboBoxChange...
being
  Edit1.Text := Copy(Lista[ComboBox.ItemIndex],Pos(´||´,Lista[ComboBox.ItemIndex]) + 2,Length(Lista[ComboBox.ItemIndex]) - Pos(´||´,Lista[ComboBox.ItemIndex]) - 2);
end;

unit popCombo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
    TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ComboDesc: array of string;

implementation

{$R *.dfm}

procedure FillCombo;
var
    F: TextFile;
    S: string;
    z,zz:integer;

begin
    AssignFile(F, ´teste.txt´);
    Reset(F);
    zz := 0;
    while not eof (F) do
    begin
        readln(F,S);
        for z := 0 to length(S) do
        begin
            if copy(S,z,2) = ´||´ then
            begin
                form1.combobox1.Items.Add(copy(S,0,z-1));
                zz := zz+1;
                SetLength (ComboDesc,zz);
                ComboDesc[zz-1] := copy(S,z+2,length(S)-z);
            end;
        end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    fillcombo;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
    edit1.Text := ComboDesc[combobox1.itemindex];
end;

end.