Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 781

•  TDictionary Custom Sort  5 895

•  Fast Watermark Sources  5 690

•  3D Designer  8 463

•  Sik Screen Capture  6 028

•  Patch Maker  6 471

•  Айболит (remote control)  6 465

•  ListBox Drag & Drop  5 327

•  Доска для игры Реверси  94 898

•  Графические эффекты  6 673

•  Рисование по маске  5 780

•  Перетаскивание изображений  4 850

•  Canvas Drawing  5 227

•  Рисование Луны  4 947

•  Поворот изображения  4 490

•  Рисование стержней  3 183

•  Paint on Shape  2 426

•  Генератор кроссвордов  3 304

•  Головоломка Paletto  2 613

•  Теорема Монжа об окружностях  3 397

•  Пазл Numbrix  2 246

•  Заборы и коммивояжеры  2 904

•  Игра HIP  1 874

•  Игра Go (Го)  1 786

•  Симулятор лифта  2 122

•  Программа укладки плитки  1 854

•  Генератор лабиринта  2 292

•  Проверка числового ввода  1 980

•  HEX View  2 289

•  Физический маятник  1 954

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Импорт больших файлов с разделителями



Вот две функции, которые я использую почти во всех моих проектах. Пользоваться ею очень просто, например:


var
  s: string;
  f: TextFile;
  AssignFile(f, 'D:\INPUT.TXT');
  Reset(f);
  while not EOF(f) do

  begin
    ReadLn(s, f);
    ShowMessage(GetField(s, 1)); {Первое поле}
    ShowMessage(GetField(s, 6)); {Шестое поле}
    ShowMessage(GetField(s, 25)); {возвратит '', если нет 25 колонки...}
  end;
  CloseFile(f);

  { ==== Данная функция возвращает поле из строки с разделителем. ==== }

function GetField(InpString: string; fieldpos: Integer): string;
var

  c: Char;
  curpos, i: Integer;
begin

  curpos := 1;
  for i := 1 to fieldpos do
  begin
    result := '';
    if curpos > Length(InpString) then
      Break;
    repeat
      c := InpString[curpos];
      Inc(curpos, 1);
      if (c = '"') or (c = #13) or (c = #10) then
        c := ' ';
      if c <> ',' then
        result := result + c;
    until (c = ',') or (curpos > Length(InpString))
  end;
  if (curpos > Length(InpString)) and (i < fieldpos) then
    result := '';
  result := Trim(result);
end;

{ ==== Данная функция удаляет у строки левые и правые пробелы. ==== }

function Trim(inp_str: string): string;
var

  i: Integer;
begin

  for i := 1 to Length(inp_str) do
    if inp_str[i] <> ' ' then
      Break;
  if i > 1 then
    Delete(inp_str, 1, i - 1);
  for i := Length(inp_str) downto 1 do
    if inp_str[i] <> ' ' then
      Break;
  if i < Length(inp_str) then
    Delete(inp_str, i + 1, Length(inp_str));
  result := inp_str;
  if result = ' ' then
    result := '';
end;





Похожие по теме исходники

Чтение PSD файлов

Шифратор файлов

Поиск файлов

FileMan (менеджер файлов)

 

Поиск открытых файлов




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте