StringGrid

[StartMis]

Помогите не знаю как сделать следующие у меня есть алфавит в файле
нужно его загрузить в стринггрид и чтобы первая строка начиналась с начала алфавита а,б,в,г... во вторую строку загружать алфавит со сдвигом т.е вторая строка будет б,в,г.. третья в,г.. как это можно сделать?

[vovk]

А в каком файле?
Лучше даже приложите файл

[ОлеХ]

У меня фаил с алфавитом например "c:\1.txt" :
procedure TForm1.Button1Click(Sender: TObject);
var filec:textfile;
i,j, count:integer;
s,str:string;
begin
assignfile(filec,'c:\1.txt');
reset(filec);
while not EOF(filec) do
begin
read(filec,s);
str:=str+s;
end;
closefile(filec);
count:=33;//буквы в алфавите
stringgrid1.ColCount:=count+1;// +1 т.к. один фиксированный столбец
stringgrid1.RowCount:=count;//
for i:=0 to 33 do
for j:=1+i to 33 do
begin
stringgrid1.Cells[j,i]:=str[j]
end;
end;

[StartMis]

Текстовый файл содержит алфавит:
А
Б
В
Г
Д
Е
...
ОлеХ вариант неплохой но нужно чтоб все начиналось с первого столбца
а в конце заполнялось теми буквами которые были убраны в начале

[Stilet]

Если я правильно понял то вот решение:

var i:byte;s:TStringList;
begin
 StringGrid1.ColCount:=ord('я') - ord ('а')+2;
for i:=0 to StringGrid1.ColCount do begin
 StringGrid1.Cells[i,0]:=chr(i+ord('а'));
end;
s:=TStringList.Create;
for i:=1 to StringGrid1.RowCount-1 do begin
 s.Text:=StringGrid1.rows[i-1].Text;
 s.Delete(0);
 StringGrid1.Rows[i]:=s;
end;

end;

[obscurant]

Сообщение от StartMis

ОлеХ вариант неплохой но нужно чтоб все начиналось с первого столбца
а в конце заполнялось теми буквами которые были убраны в начале

вот код от Stilet'а, только подправленный с учетом заполнения убранными буквами в конце каждой строки

var i,j:byte;s:TStringList;
begin
StringGrid1.ColCount:=ord('я') - ord ('а')+1;
for i:=0 to StringGrid1.ColCount do
begin
StringGrid1.Cells[i,0]:=chr(i+ord('а'));
end;
s :=TStringList.Create;
for i:=1 to StringGrid1.RowCount do
begin
s.Text:=StringGrid1.rows[i-1].Text;
s.Delete(0);

for j :=i-1 downto 0 do
s.Append(StringGrid1.cells[j,0]);
StringGrid1.Rows[i]:=s;

end;
end;