procedure TForm1.Button1Click(Sender: TObject); var mm: TStrings; i: integer; begin mm := TStringList.Create; mm.Delimiter := '~'; mm.DelimitedText := '0~~FT903A面板~~平面银~~块~~10~~307.69~~0.17~~52.31~~36~~1~~1405'; for i:= 0 to (mm.Count div 2) do showmessage(mm.Strings[i*2]); mm.Destroy; end;
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls ,StrUtils;type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation {$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); var TL1 :TStringList; str,temp ,a:string ; i :integer; begin TL1 := TStringList.Create; str :='0~~FT903A面板~~平面银~~块~~10~~307.69~~0.17~~52.31~~36~~1~~1405'; temp :=AnsiReplaceText(str,'~~','~') ; TL1.Delimiter := '~'; TL1.DelimitedText :=temp ; ListBox1.Items :=TL1; i:=0; while i<TL1.count do begin a :=TL1.Strings[i]; //循环取值,自已写了`~ i :=i+1; end; showmessage(a);end;end.
procedure TForm1.Button1Click(Sender: TObject); var TL1 :TStringList; str,temp ,a:string ; i :integer; begin TL1 := TStringList.Create; str :='0~~FT903A面板~~平面银~~块~~10~~307.69~~0.17~~52.31~~36~~1~~1405'; temp :=AnsiReplaceText(str,'~~','~') ;//要替换这个呀`~~不然会有空值 TL1.Delimiter := '~'; TL1.DelimitedText :=temp ; ListBox1.Items :=TL1; i:=0; while i<TL1.count do begin a :=TL1.Strings[i]; //循环取值,自已写了`~ i :=i+1; end; showmessage(a);end;
var
mm: TStrings;
i: integer;
begin
mm := TStringList.Create;
mm.Delimiter := '~';
mm.DelimitedText := '0~~FT903A面板~~平面银~~块~~10~~307.69~~0.17~~52.31~~36~~1~~1405';
for i:= 0 to (mm.Count div 2) do
showmessage(mm.Strings[i*2]);
mm.Destroy;
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls ,StrUtils;type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
TL1 :TStringList;
str,temp ,a:string ;
i :integer;
begin
TL1 := TStringList.Create;
str :='0~~FT903A面板~~平面银~~块~~10~~307.69~~0.17~~52.31~~36~~1~~1405'; temp :=AnsiReplaceText(str,'~~','~') ;
TL1.Delimiter := '~';
TL1.DelimitedText :=temp ;
ListBox1.Items :=TL1; i:=0; while i<TL1.count do
begin
a :=TL1.Strings[i]; //循环取值,自已写了`~
i :=i+1;
end;
showmessage(a);end;end.
var
TL1 :TStringList;
str,temp ,a:string ;
i :integer;
begin
TL1 := TStringList.Create;
str :='0~~FT903A面板~~平面银~~块~~10~~307.69~~0.17~~52.31~~36~~1~~1405'; temp :=AnsiReplaceText(str,'~~','~') ;//要替换这个呀`~~不然会有空值
TL1.Delimiter := '~';
TL1.DelimitedText :=temp ;
ListBox1.Items :=TL1; i:=0; while i<TL1.count do
begin
a :=TL1.Strings[i]; //循环取值,自已写了`~
i :=i+1;
end;
showmessage(a);end;