Показать сообщение отдельно
  #4  
Старый 30.05.2011, 13:53
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Сообщения: 340
Версия Delphi: 11.3
Репутация: 429
Сообщение

Цитата:
тектовый файл содержит не просто набор слов, там таблица многострочная с столбцами естетственно и подстолбцами
Что-то особой структуры файла я не увидел там. Прям извращение какое-то Может я просто не сталкивался с этим (это мысли в слух..)

Цитата:
при отладке выходят какие-то закорючки, видимо кодировка глючит
Да дело в кодировке.

Цитата:
как в цикле можно указать чтобы каждая строка сбрасывалась в каждую строку excel?
Попробуй как-нибудь так:
Код:
var
  InFile: TextFile;
  k: Integer;
  Str: String;
begin
  k := 1;
  AssignFile(InFile, 'C:\InFile.txt');
  Excel.Workbooks.Add('C:\OutFile.xls', 0);
  Reset(InFile);
  while not EOF(InFile) do
    begin
      Readln(InFile, Str);
      Excel.Cells.Item[k, 1] := Str;
      Inc(k);
    end;
  CloseFile(InFile);
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
Ответить с цитированием