mencopy text file pada delphi console

program Project12copytxtfile;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;
  //System.BlockRead,System.BlockWrite,System.Close


var
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
 try

    AssignFile(FromF, 'fileasal.txt');
    if FileExists('fileasal.txt') then

    Reset(FromF, 1) else rewrite(FromF,1);	{ Record size = 1 }

      AssignFile(ToF, 'filecopy.txt');	{ Open output file. }
      Rewrite(ToF, 1);	{ Record size = 1 }
      writeln( 'Copying ' + IntToStr(FileSize(FromF))
        + ' bytes...');
      repeat
        System.BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
      // Use CloseFile rather than Close;
      // because Close is provided for backward compatibility.
      CloseFile(FromF);
      CloseFile(ToF);
      writeln(' done.');


  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);

  end;
       readln;
end.

menggunakan Tspinwait

program Project11tspinwait;

{$APPTYPE CONSOLE}

{$R *.res}
uses
  SysUtils, SyncObjs, Classes;

var
  Flag: Boolean;

type
  TThreadCause = class(TThread)
  private
    procedure Execute; override;
  end;

procedure TThreadCause.Execute;
begin
  Sleep(100); { 100 milliseconds }
  Flag := True;
end;

var
  LCause: TThreadCause;
  LSpinner: TSpinWait;

begin
  Flag := False;

  LCause := TThreadCause.Create(True);
  LCause.Start;
  LSpinner.Reset;
  while Flag = False do
  begin
    Writeln(IntToStr(LSpinner.Count));
    LSpinner.SpinCycle;
  end;
  Writeln(IntToStr(LSpinner.Count));
  Writeln(Flag); { displays TRUE }
  readln;
end.

memnformat data menggunakan unit Tformat

var 

begin
  { Ask the user to supply a date and place it into ShortDateFormat variable }
  WriteLn('Enter the desired format (ex. dd/mm/yyyy):');
  ReadLn(ShortDateFormat);
 
  { Write the date on the console using the selected short date format }
  WriteLn('Current date is ', DateToStr(Date()));
  
readln;
end.

masih error ini.. maaf ya.. kmu bisa kasih contoh gmn membaca format tanggal?

menampilkan data penjualan dari website yang menggunakan JSON object

program Project9jsonwriter;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Classes,
  System.JSON.Types,
  System.JSON.Writers;

var
  Writer: TJsonTextWriter;
  StringWriter: TStringWriter;

begin
  StringWriter := TStringWriter.Create();
  Writer := TJsonTextWriter.Create(StringWriter);
  Writer.Formatting := TJsonFormatting.Indented;

  Writer.WriteStartObject;
  Writer.WritePropertyName('Transaction');
  Writer.WriteStartArray;
  Writer.WriteStartObject;
  Writer.WritePropertyName('id');
  Writer.WriteValue(662713);
  Writer.WritePropertyName('firstName');
  Writer.WriteValue('John');
  Writer.WritePropertyName('lastName');
  Writer.WriteValue('Doe');
  Writer.WritePropertyName('price');
  Writer.WriteValue(2.1);
  Writer.WritePropertyName('parent_id');
  Writer.WriteNull;
  Writer.WritePropertyName('validated');
  Writer.WriteValue(-1);
  Writer.WriteEndObject;
  Writer.WriteStartObject;
  Writer.WritePropertyName('id');
  Writer.WriteValue(662714);
  Writer.WritePropertyName('firstName');
  Writer.WriteValue('Anna');
  Writer.WritePropertyName('lastName');
  Writer.WriteValue('Smith');
  Writer.WritePropertyName('price');
  Writer.WriteValue(4.5);
  Writer.WritePropertyName('parent_id');
  Writer.WriteNull;
  Writer.WritePropertyName('validated');
  Writer.WriteValue(-1);
  Writer.WriteEndObject;
  Writer.WriteStartObject;
  Writer.WritePropertyName('id');
  Writer.WriteValue(662715);
  Writer.WritePropertyName('firstName');
  Writer.WriteValue('Peter');
  Writer.WritePropertyName('lastName');
  Writer.WriteValue('Jones');
  Writer.WritePropertyName('price');
  Writer.WriteValue(3.6);
  Writer.WritePropertyName('parent_id');
  Writer.WriteNull;
  Writer.WritePropertyName('validated');
  Writer.WriteValue(-1);
  Writer.WriteEndObject;
  Writer.WriteEndArray;
  Writer.WriteEndObject;

  WriteLn(StringWriter.ToString);

  readln;
   end.
   

membangun struktur data rekaman pelanggan menggunakan JSON pada delphi console

program Project8Jsonstring;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Classes,
  System.JSON.Types,
  System.JSON.Writers,
  System.JSON.Builders;

var
  Builder: TJSONObjectBuilder;
  Writer: TJsonTextWriter;
  StringWriter: TStringWriter;
  StringBuilder: TStringBuilder;

begin
  StringBuilder := TStringBuilder.Create;
  StringWriter := TStringWriter.Create(StringBuilder);
  Writer := TJsonTextWriter.Create(StringWriter);
  Writer.Formatting := TJsonFormatting.Indented;
  Builder := TJSONObjectBuilder.Create(Writer);

  Builder
    .BeginObject
      .BeginArray('Transaction')
        .BeginObject.Add('id', 662713)
          .Add('firstName', 'John')
          .Add('lastName', 'Doe')
          .Add('price', 2.1)
          .AddNull('parent_id')
          .Add('validated', true)
        .EndObject
        .BeginObject
          .Add('id', 662714)
          .Add('firstName', 'Anna')
          .Add('lastName', 'Smith')
          .Add('price', 4.5)
          .AddNull('parent_id')
          .Add('validated', false)
        .EndObject
        .BeginObject
          .Add('id', 662715)
          .Add('firstName', 'Peter')
          .Add('lastName', 'Jones')
          .Add('price', 3.6)
          .AddNull('parent_id')
          .Add('validated', true)
        .EndObject
      .EndArray
    .EndObject;

  WriteLn(StringBuilder.ToString);
  readln;
end.

unit math untuk menghitung mean dan sd

Program Project7math;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Math;

var
  Values: array[0..9] of Double;
  I: Integer;

begin
  Randomize;
  for I:= Low(Values) to High(Values) do
    begin
    Values[I]:= RandG(1.0, 0.5);    // Mean = 1.0, StdDev = 0.5
    Write(Values[I]:4,' ');
    end;
  writeln;
  Writeln('Mean          = ', Mean(Values):6:4);
  Writeln('Std Deviation = ', StdDev(Values):6:4);
  Readln;
end.

Penggunaan unit system Variants dan cara mengetahui jenis variabel

var
  LVar: Variant;
 
begin
  { Assign a byte value to the variant. }
  { Prints out "Byte" to the console. }
  LVar := 100;
  Writeln(VarTypeAsText(VarType(LVar)));
 
  { Multiply the byte value by 1000. This results in an Int64 with a value of 100000. }
  { Prints out "Int64" to the console. }
  LVar := LVar * 1000;
  Writeln(VarTypeAsText(VarType(LVar)));
 
  { Divide the LongWord value by 5.0. This results in a double value. }
  { Prints out "Double" to the console. }
  LVar := LVar / '5.0';
  Writeln(VarTypeAsText(VarType(LVar)));
  Readln;