Strängar 2

Strängar 2 Sida 1 av 3

Strängar 2

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, Buttons;

type

{ TForm1 }

TForm1 = class(TForm) BitBtn1: TBitBtn;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Panel1: TPanel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

Strängar 2 Sida 2 av 3

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ private declarations } public

{ public declarations } end;

var

Form1: TForm1;

implementation { TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.Caption := Application.Title;

{Följande rader rensar Editrutorna vid programstart.}

Edit1.Text := SysUtils.EmptyStr; //I stället för := '';

Edit2.Text := SysUtils.EmptyStr;

Edit3.Text := SysUtils.EmptyStr;

Edit4.Text := SysUtils.EmptyStr;

Edit5.Text := SysUtils.EmptyStr;

Edit6.Text := SysUtils.EmptyStr;

Edit7.Text := SysUtils.EmptyStr;

Edit8.Text := SysUtils.EmptyStr;

Edit9.Text := SysUtils.EmptyStr;

Edit10.Text := SysUtils.EmptyStr;

Edit11.Text := SysUtils.EmptyStr;

Edit12.Text := SysUtils.EmptyStr;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

s1,s2: string;

i: Integer;

begin

s1 := Edit1.Text;

s2 := Edit2.Text;

i := SysUtils.AnsiCompareStr(s1,s2);

//i := SysUtils.AnsiCompareText(s1,s2); //Testa även denna rad...

if i = 0 then ShowMessage('Texterna är lika') else ShowMessage('Texterna är olika');

end;

procedure TForm1.Button2Click(Sender: TObject);

var

s1,s2: string;

i: Integer;

begin

s1 := Edit3.Text;

s2 := Edit4.Text;

i := SysUtils.AnsiPos(s1,s2);

ShowMessage('Position: ' + IntToStr(i) + ', ' + 'Längd: ' + IntToStr(Length(s1)));

end;

Strängar 2 Sida 3 av 3

procedure TForm1.Button3Click(Sender: TObject);

var

s1,s2,result: string;

begin

s1 := Edit5.Text;

s2 := Edit6.Text;

result := System.Concat(s1,s2);

ShowMessage(result);

end;

procedure TForm1.Button4Click(Sender: TObject);

var

s1: string;

i: Integer;

begin

s1 := Edit7.Text;

try

System.Delete(s1,2,3);

Edit8.Text := s1;

except

Edit8.Text := 'Kommandot misslyckades';

end;

end;

procedure TForm1.Button5Click(Sender: TObject);

var

s1: string;

i: Integer;

begin

s1 := Edit9.Text;

try

i := Length(s1);

Edit10.Text := 'Textsträngen är ' + IntToStr(i) + ' tecken lång';

except

Edit10.Text := 'Kommandot misslyckades';

end;

end;

procedure TForm1.Button6Click(Sender: TObject);

var

s1,result: string;

begin

s1 := Edit11.Text;

result := Trim(s1);

Edit12.Text := result;

end;

initialization {$I unit1.lrs}

end.