Split String Pada Delphi 7

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    ListBox1: TListBox;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure Split(aValue : string; aDelimiter : Char; Result : TStrings);
var
X : Integer;
S : string;
begin
if Result = nil then Result := TStringList.Create;
Result.Clear;
S := '';
for X:=1 to Length(aValue) do begin
    if aValue[X] <> aDelimiter then
      S:=S + aValue[X]
    else begin
      Result.Add(S);
      S := '';
    end;
end;
if S <> '' then Result.Add(S);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Split (Edit1.Text, ' ', ListBox1.Items);
end;

end.

Split String Pada Delphi 7

0 Response to "Split String Pada Delphi 7"

Post a Comment