//建义用涵数。。
type
SortArr=array of string;
function St(SL: TStringList): SortArr;
var
i: Integer;
tep: string;
function S(str: string): string;
var
k: Integer;
j:string;
begin
for k := 1 to Length(str) 碧塌do
begin
if k mod 2 = 1 then
begin
j:= j+ copy(str, k, 1);
end;
Result:=j;
//ShowMessage(Result);
end;
end;
begin
SetLength(result, SL.Count);
for i := 0 to SL.Count - 1 do
begin
tep := SL.Strings[i];
Result[i]:=s(tep);
end;
end;
//花了一个下午的时间才想出。。希望对你有帮助。。 如果不会调用的话在HI百度留言，我发Q号给你跟你讲解如何调用
代码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
配模 Memo1: TMemo;
Memo2: TMemo;
Label1: TLabel;
procedure 培慧缓Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
type
SortArr=array of string;
implementation
{$R *.dfm}
function St(SL: TStringList): SortArr;
var
i: Integer;
tep: string;
function S(str: string): string;
var
k: Integer;
j:string;
begin
for k := 1 to Length(str) do
begin
if k mod 2 = 1 then
begin
j:= j+ copy(str, k, 1);
end;
Result:=j;
//ShowMessage(Result);
end;
end;
begin
SetLength(result, SL.Count);
for i := 0 to SL.Count - 1 do
begin
tep := SL.Strings[i];
Result[i]:=s(tep);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
List:TStringList;
i:integer;
begin
Memo2.Lines.Clear;
list:=TStringList.Create;
List.AddStrings(Memo1.Lines);
//St(List);
for i:=Low(St(List)) to High(St(List)) do
begin
Memo2.Lines.Add(St(List)[i]);
end;
end;
end.
//测试结果如下图