TStrings

← →
zep © (2004-06-21 11:19) [0]

подскажите как из TStrings в String перевести

← →
serge © (2004-06-21 11:23) [1]

ST : TStrings;
ST.Text [CommaText] ???

← →
Anatoly Podgoretsky © (2004-06-21 11:27) [2]

S := Ss.Text;

← →
zep © (2004-06-21 11:49) [3]

мне надо сторчками с ListBox заполнить столбец в StringGrid
а он выдает ошибку
[Error] Unit1.pas(76): Incompatible types: "String" and "TStrings"

← →
serge © (2004-06-21 11:50) [4]

SG.Cells[Row,Col]:=LB.Items[YourIndex];

← →
Digitman © (2004-06-21 11:54) [5]

var
MyListBox: TListBox;
..
StringGrid.Cols[индекс_колонки] := MyListBox.Items;

делаю так но почемуто не выходит

procedure TForm1.Button1Click(Sender: TObject);
begin

if ListBox1.ItemIndex =-1 then exit;
ListBox2.Items.add(ListBox1.Items[ListBox1.ItemIndex]);
ListBox1.Items.Delete(ListBox1.ItemIndex);
StringGrid1.Cells[1,0]:=ListBox2.Items[ListBox2.ItemIndex];
end;

zep © (21.06.04 11:59) [6]
Ясен пень, а кто тебе сказал, что вновь добалвенная строка сразу станет выделенной во втором листбоксе?

Digitman © (21.06.04 11:54) [5]
var
MyListBox: TListBox;
..
StringGrid.Cols[индекс_колонки] := MyListBox.Items;

все заработало так. спасибо

TStrings Найти похожие ветки