[evgen-20058]

Помогите с решение задачи.
открывается диалог выбора txt файла, который затем считывается и заносится
в грид. Разделитель данных внутри строк - символ табуляции.
не могу понять как реализовать запись в StringGrid

[PhoeniX]

Код:

StringGrid.Cells[x,y] := '...';

или как-то так.
Если проблема не в этом, то код в студию с объяснением, что не работает.

[NumLock]

Сообщение от evgen-20058

не могу понять как реализовать запись в StringGrid

Код:

  StringGrid1.Cells[0, 0]:='Solum';
  StringGrid1.Cells[1, 0]:='debilis';
  StringGrid1.Cells[2, 0]:='mori';
  StringGrid1.Cells[3, 0]:='debent';

[evgen-20058]

вот мой код....запись происходит в фиксированное количество колонок....мне же надо чтобы происходило все динамически

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
FName, str:string;
f:TextFile;
n, i:integer;

begin
if OpenDialog1.Execute then begin
  fName := OpenDialog1.FileName;
  end;

with StringGrid1 do begin
  RowCount := 0;
  ColCount := 0;

  AssignFile(f,FName);
  Reset(f);
  n:=0;
  while not eof(f) do
  begin
    readln(f, str);
    n:=n+1;
  end;
RowCount:=n+1;
Cols[0].LoadFromFile(fName);
for i:=RowCount-1 downto 1 do Rows[i].Text:=Rows[i-1].Text;
for i:=1 to RowCount-1 do
  begin
  Rows[i].Delimiter:=#9;
  Rows[i].DelimitedText:=Cells[0,i];
  end;
  end;//stringGrid1
end;//button1click

[NumLock]

Код:

var
  AStrings: TStrings;
  i: Integer;
  n: Integer;
begin
  AStrings:=TStringList.Create;
  try
    AStrings.LoadFromFile('Project1.txt'); // Project1.txt ?
    StringGrid1.RowCount:=AStrings.Count;
    StringGrid1.ColCount:=100; // 100 ? 
    n:=1;
    for i:=0 to AStrings.Count-1 do
    begin
      StringGrid1.Rows[i].Delimiter:=#9;
      StringGrid1.Rows[i].DelimitedText:=AStrings[i]+#9+'|';
      n:=Max(n, StringGrid1.Rows[i].IndexOf('|'));
      StringGrid1.Rows[i].Text:=StringReplace(StringGrid1.Rows[i].Text, '|', '',
        [rfReplaceAll, rfIgnoreCase]);
    end;
    StringGrid1.ColCount:=n;
  finally
    AStrings.Free;
  end;
end;