Delphiben hogy lehetne 2 tizedes pontossággal kiíratni a számot? Pascalban ott volt a ':2:2' de ez itt nem akar működni.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
szam:integer;
er:real;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines.LoadFromFile('C:\delphi.txt');
szam:=(memo1.lines.Count);
{hány soros a dokumentum} edit1.Text:=inttostr(szam);
er:=(szam/68);
{sorok szzáma osztva 68al} edit2.Text:=(floattostr(er));
{edit2 tartalma kerekítve 2 jegyre} edit3.Text:=//?????
end;
end.
delphinek is ki kell iratni egy real változót így:
write(valtozo:2:2);
utolsónak: igen, fájlba vagy konzolra.
Ez itt WinForms, itt a write nem éppen célszerű.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!