Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 000 • TDictionary Custom Sort 6 109 • Fast Watermark Sources 5 908 • 3D Designer 8 739 • Sik Screen Capture 6 227 • Patch Maker 6 659 • Айболит (remote control) 6 652 • ListBox Drag & Drop 5 506 • Доска для игры Реверси 95 585 • Графические эффекты 6 868 • Рисование по маске 6 070 • Перетаскивание изображений 5 045 • Canvas Drawing 5 411 • Рисование Луны 5 133 • Поворот изображения 4 678 • Рисование стержней 3 292 • Paint on Shape 2 534 • Генератор кроссвордов 3 426 • Головоломка Paletto 2 740 • Теорема Монжа об окружностях 3 528 • Пазл Numbrix 2 320 • Заборы и коммивояжеры 3 008 • Игра HIP 1 963 • Игра Go (Го) 1 882 • Симулятор лифта 2 231 • Программа укладки плитки 1 947 • Генератор лабиринта 2 385 • Проверка числового ввода 2 075 • HEX View 2 398 • Физический маятник 2 029

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Получение значений полей из текстового файла

var
  F: TextFile;
  S: string;
begin
  AssignFile(F, 'FILENAME.TXT');
  Reset(F);
  while not EOF(F) do
  begin
    Readln(F, S);
    V1 := Copy(S, 1, 3);
    V2 := Copy(S, 4, 6);
    ...
  end;
  CloseFile(F);
end;

Получение значений полей из текстового файла

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