Как мне сделать так штоби при вводе массива все значения сами переносились по словам. Помогити плиз

[KSP]

Как мне сделать так штоби при вводе массива:


procedure TForm1.Button4Click(Sender: TObject);
var i,j,ii:integer;
begin
f1:=TStringList.create();
f1.LoadFromFile('\\172.50.47.23\x\Х ХХХ.ksp');
ii:=0;
for i:=0 to 5 do
for j:=2 to 5 do
begin
Form2.StringGrid1.Cells[i,j]:=f1.Strings[ii];
inc(ii);
end;
Form2.Show;
end;



Все значения сами переносились по словам и когда вводить текст тоже чтобы само переносилось по словам



Спасибо

[Stilet]

ну попробуй так :

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
DrawText(StringGrid1.Canvas.Handle, pchar(StringGrid1.cells[acol,arow]),50,Rect,DT_WORDBREAK);
end;


Ну в общем ИМХО Сам Стринггрид такого не умеет, т.е. нуна либо перерисовывать (см код) либо брать другой компонент )

[Alex21]

Можно попробовать заранее подготовить строку:
s2:='И'+#13+'само'+#13+'перенос'+#1 3+'слова';// например так

а затем отрисовка:

DrawText(StringGrid1.Canvas.Handle, pchar(s2),50,Rect,DT_WORDBREAK);

[KSP]

Ну если новый компонент то какой дбгрид?

Но мне нужна программа на каторяя сохраняет текст StringGrid1 без диалагав, проста нажав кнопку сберечь и также открыть тотже текст.

Но можно и не StringGrid1. Заранее спасибо

[Alex21]

Только что вопрос этот был. Здесь.

[KSP]

я знаю как ввести и вывести, но мне нужна штоби текст каторий я ввожу бил не в одной строке а в несколько строчек

[mutabor]

тот вариант что Stilet дал, пробовал? просмотри все возможные флаги, не может быть чтобы DrawText не могла слова переносить

[KSP]

Хорошо я присмотрюсь к DrawText. Но натом очень большое спасибо