[jwern]

Помогите, нужно создать программу,которая из данные из текстового файла типа такого выводит на форму в таблицу.Использовать stringgrid

[Black Raider]

Помогите или напишите?
если помогите то "и хде же код"?

[jwern]

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

[Black Raider]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var inFile: TextFile;
       par: TStringList;
         s: string;
         i: integer;
begin
  AssignFile(InFile, '1.txt');
  Reset(InFile);
  Par := TStringList.Create;
  Par.Clear;
  while not Eof(InFile) do
  begin
    Readln(InFile, S);
    ExtractStrings([' '], [' '], PChar(S), Par);
  end;
  closeFile(inFile);
  StringGrid1.ColCount:=5;
  StringGrid1.RowCount:=(Par.Count+1) div 4 +1;
  for i:=0 to Par.Count-1 do
    StringGrid1.Cells[((i) mod 4)+1,((i) div 4)+1]:= par.Strings[i];
end;

[jwern]

спасиб) а какие компоненты нужны кроме стрингрида?

[Black Raider]

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

спасиб) а какие компоненты нужны кроме стрингрида?

кнопка