Где хранить данные StringGrid?

[evg_m]

valuelisteditor1.strings.add('магазин=5 патронов');
valuelisteditor1.strings.add('дальность =1000 м');
...

type (valuelisteditors1.strings) ==TStrings <== TStringList http://www.delphibasics.ru/TStringList.php

[Vyacheslav.]

А никто не подскажет как мне код сократить? А то много if then

procedure TForm4.ComboBox1Change(Sender: TObject);
begin
If ComboBox1.ItemIndex=0 then
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Automatic\SG552.txt');
Image1.Picture.LoadFromFile('Images\Arsenal\Automatic\SG552.jpg');
end;
If ComboBox1.ItemIndex=1 then
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Automatic\G36C.txt');
Image1.Picture.LoadFromFile('Images\Arsenal\Automatic\G36C.bmp');
end;
If ComboBox1.ItemIndex=2 then
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Automatic\M4.txt');
Image1.Picture.LoadFromFile('Images\Arsenal\Automatic\M4.jpg');
end;
If ComboBox1.ItemIndex=3 then
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Automatic\Êëàññèêà.txt');
Image1.Picture.LoadFromFile('Images\Arsenal\Automatic\Êëàññèêà.jpg');
end;
If ComboBox1.ItemIndex=4 then
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Automatic\Àâòîìàò ìîä..txt');
Image1.Picture.LoadFromFile('Images\Arsenal\Automatic\Àâòîìàò ìîä..jpg');
end;
If ComboBox1.ItemIndex=5 then
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Automatic\AUG A3.txt');
Image1.Picture.LoadFromFile('Images\Arsenal\Automatic\AUG A3.jpg');
end;
If ComboBox1.ItemIndex=6 then
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Automatic\TAR-21.txt');
Image1.Picture.LoadFromFile('Images\Arsenal\Automatic\TAR-21.jpg');
end;
If ComboBox1.ItemIndex=7 then
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Automatic\AH-94.txt');
Image1.Picture.LoadFromFile('Images\Arsenal\Automatic\AH-94.bmp');
end;
If ComboBox1.ItemIndex=8 then
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Automatic\F2000.txt');
Image1.Picture.LoadFromFile('Images\Arsenal\Automatic\F2000.jpg');
end;
If ComboBox1.ItemIndex=9 then
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Automatic\M16.txt');
Image1.Picture.LoadFromFile('Images\Arsenal\Automatic\M16.jpg');
end;
end;

procedure TForm4.ComboBox2Change(Sender: TObject);
begin
If ComboBox2.ItemIndex=0 then
begin
ValueListEditor2.Strings.LoadFromFile('Images\Arsenal\Automatic\SG552.txt');
Image2.Picture.LoadFromFile('Images\Arsenal\Automatic\SG552.jpg');
end;
If ComboBox2.ItemIndex=1 then
begin
ValueListEditor2.Strings.LoadFromFile('Images\Arsenal\Automatic\G36C.txt');
Image2.Picture.LoadFromFile('Images\Arsenal\Automatic\G36C.bmp');
end;
end;

end.

[Аватар]

Имена файлов в массив и выбор по индексу

[Vyacheslav.]

Типо

Arsenal: array[1..5] of String[10]=('Калаш.txt','М4.txt','Петух.txt','Классика.txt','Тавор.txt');
Arsenal[1]:=ComboBox1.ItemIndex=0;
Arsenal[2]:=ComboBox1.ItemIndex=1;
Arsenal[3]:=ComboBox1.ItemIndex=2;

?

[Sciv]

Сообщение от Vyacheslav.

Типо

Почти угадал:

Arsenal: array[1..5] of String[10]=('Калаш.txt','М4.txt','Петух.txt','Классика.txt','Тавор.txt');

for i := 1 to 5 do
  ComboBox1.Items[i - 1] := Arsenal[i];

[Vyacheslav.]

Чет не работает...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ValEdit, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    ValueListEditor1: TValueListEditor;
    ComboBox1: TComboBox;
    Image1: TImage;
    ComboBox2: TComboBox;
    ValueListEditor2: TValueListEditor;
    Image2: TImage;
    Image3: TImage;
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    i:integer;
   Arsenal: array[1..2] of String[10]=('One.txt','To.txt');

implementation

{$R *.dfm}




procedure TForm1.ComboBox1Change(Sender: TObject);
begin
for i := 1 to 2 do
  ComboBox1.Items[i - 1] := Arsenal[i];
end;


procedure TForm1.ComboBox2Change(Sender: TObject);
begin
If ComboBox2.ItemIndex=0 then
begin
ValueListEditor2.Strings.LoadFromFile('One.txt');
Image2.Picture.LoadFromFile('P90.jpg');
end;
If ComboBox2.ItemIndex=1 then
begin
ValueListEditor2.Strings.LoadFromFile('To.txt');
Image2.Picture.LoadFromFile('G36C.bmp');
end;
end;

end.

[Vyacheslav.]

Массив выводит чисто название txt файла в комбо бокс, а не читает его...

[Vyacheslav.]

Подсказали уже гениальный способ.

procedure TForm4.ComboBox2Change(Sender: TObject);
var
Fn:String;
Ext:String;
Ext2:string;
begin
Case ComboBox2.ItemIndex of
 0:  begin Fn:='SG552';Ext:='txt';Ext2:='jpg'; end;
 1:  begin Fn:='G36C';Ext:='txt';Ext2:='bmp'; end;
end;
ValueListEditor2.Strings.LoadFromFile('Images\Arsenal\Automatic\'+Fn+'.'+Ext);
Image2.Picture.LoadFromFile('Images\Arsenal\Automatic\'+Fn+'.'+Ext2);
end;

[Аватар]

а из массива можно без кейса

Fn:=MyArray[ComboBox2.ItemIndex];

[Vyacheslav.]

Массивы слишком сложная, непонятная штука, особенно двумерные.