Нуждаюсь в помощи (Delphi)

[Nadjuha]

А как такой пример реализовать в Делфи, и вывести эти даные куда-нибудь?

[Stilet]

Да в принципе из него убрать printer,dos,crt и Clrscr
Заменить assign на assignfile и close на closefile. Вместо writeln присвособить какой нить другой способ например вывод в ListBox и он заработает. Втюхай его в клик кнопки.

[Nadjuha]

а как правилино написать команду вывода в ListBox, пробую а мне ошыбку снова про несовместимость типов выбрасывает?

[Serge_Bliznykov]

пока Stilet молчит, позволю себе ответить:
вместо WriteLn('Ваша строчка');
пишите
ListBox1.Items.Add('Ваша строчка');

p.s. хотя я лично предпочитаю для таких целей использовать TMemo
( Memo.Lines.Add('Строчка') )

[Nadjuha]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DBCtrls, Grids, DBGrids, dblookup,
  OleServer, ExcelXP, ExtCtrls, QuickRpt, QRCtrls;

type
RLV2 = record
    zex,br,tbn,kat:integer;
    kdz:integer;
    sz:real;
    mn,
    kdn,
    dn:integer;
    t,
    sn:real;
    kdu:integer;
    su:real;
    end;
    TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  buff,im:string[60];   knt:string[10];
  msom,msum:array[1..13] of real;
  lst:text;
  fpr1:file of rlv2;   fp1:rlv2;
  prz:char;
  th,i,j,l,kstr,wo,k,ka,j1,lp,ip,jp, pp:integer;
  sum,koef:real;   
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(fpr1,'D:\42P\Druzhba\2\fn230408.dbf');  reset(fpr1);
    while not eof(fpr1) do
    begin
    read(fpr1,fp1);
    Memo1.Lines.Add('lp:4,'=',fp1.zex:3,fp1.br:3,th:5,fp1.kat:3,fp1.kdz:4,fp1.sz:8:2,fp1.mn:3,fp1.dn:3,fp1.t:6:1,fp1.kdn:4,fp1.sn:10:2,fp1.kdu:4,fp1.su:10:2');
    end;
    closefile(fpr1);
end;
end.

И выдает ошыбку [Error] Unit1.pas(53): Incompatible types: 'String' and 'Boolean'

А если я убераю lp:4,'=', в Мемо, програма запускается но в каждую строчку из файла fn230408.dbf' записывает вот это fp1.zex:3,fp1.br:3,th:5,fp1.kat:3,f p1.kdz:4,fp1.sz:8:2,fp1.mn:3,fp1.dn :3,fp1.t:6:1,fp1.kdn:4,fp1.sn:10:2, fp1.kdu:4,fp1.su:10:2

Вроде как все идет правильно
только вот этот ЛистБокс, да и тот же Мемо ничего не выводят, видимо никак не могут сдружится с integer i real даными, что находятся в файле...Что только не вытворяла с FloatToStr проблема всеравно стоит на месте...

[Stilet]

Надя, концепция ListBox или Memo совсем другая:

Memo1.Lines.Add(format('%4d = %3d,%3d,%5d,%3d,%4d,%8.2f,%3d,%3d,%6.1f,%4d,%10.2f,%4d,%10.2f',
[lp,fp1.zex,fp1.br,th,fp1.kat,fp1.kdz,fp1.sz,fp1.mn,fp1.dn,fp1.t,fp1.kdn,fp1.sn,fp1.kdu,fp1.su]));

Это сиплюсплюснутая функция вполне заменяет форматтеры writeln'а

[Virtson]

> А если я убераю lp:4,'=',

то у Вас получается одна строчка в кавычках )
она и добавляется, просто текст ..

[Nadjuha]

Вы уже наверное устали от меня, но я одна не могу с этим делом разобратся. Понимаете, у меня в паскале все отлично функцыонирует, и вот благодоря Stiletу уже и в Memo выводятся даные, но не так как надо, не так как в Паскале, туда запихиваются какие-то непонятные цыфры. Я вот прикрепила скрины как програма выводит даные в Паскале и как в Делфи, посматрите пожайлуста, вроде как процедуры идентичны((

[Stilet]

Надя ты бы прикрепила бы проектик с файлом базы сюда, иначе так сразу не разберешся

[Nadjuha]

Вот здесь програмка и файлик с даными