Code:

unit MsFormR;

 

interface

 

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls;

 

type

TForm1 = class(TForm)

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

Memo1: TMemo;

ListBox1: TListBox;

Panel1: TPanel;

Button1: TButton;

Button2: TButton;

Splitter1: TSplitter;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

MemStr1: TMemoryStream;

public

procedure ShowMemStr;

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.DFM}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

MemStr1 := TMemoryStream.Create;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

Str1: TFileStream;

begin

OpenDialog1.Filter :=

'Any file (*.*)|*.*';

OpenDialog1.DefaultExt := '*';

if OpenDialog1.Execute then

begin

Str1 := TFileStream.Create (

OpenDialog1.Filename, fmOpenRead);

try

MemStr1.LoadFromStream (Str1);

ShowMemStr;

Button2.Enabled := true;

finally

Str1.Free;

end;

end;

end;

 

procedure TForm1.ShowMemStr;

begin

Memo1.Lines.LoadFromStream (MemStr1);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

const

ndx: LongInt = 1;

var

pch: PChar;

tmpC: Char;

begin

pch := MemStr1.Memory;

tmpC := pch[ndx];

pch[ndx] := #0;

ListBox1.Items.SetText(MemStr1.Memory);

pch[ndx] := tmpC;

 

if ndx < MemStr1.Size then

Inc(ndx)

else

Button2.Enabled := False;

end;

 

end.

 

 

 

 

 

Взято с https://delphiworld.narod

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить