�� Lazarus IDE (Labuzhskiy)

Sun, 07 Dec 2008 07:18:21 GMT

� �� Lazarus 0.9.26, �� , �� . � �� Lazarus 0.9.24 �� .
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, Buttons;

type

{ TForm1 }

TForm1 = class(TForm)
BitBtn1: TBitBtn;
Label1: TLabel;
label2: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
procedure InvertString(var InputSTR, OutputSTR: string);
end;

var
Form1: TForm1;
s, s1: UTF8String;

implementation

{ TForm1 }

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
InvertString(s, s1);
label2.Caption:=s1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
s:=''; s1:='';
s:= AnsiToUtf8(inputbox('�� ', '�� :', ''));
label1.Caption:= Utf8ToAnsi(s);
e

OpenForum RSS: ������� ������� � ������� ������ � Lazarus IDE

������� ������� � ������� ������ � Lazarus IDE (Labuzhskiy)

OpenForum RSS: �� Lazarus IDE

�� Lazarus IDE (Labuzhskiy)