استفسار عن مكون مثل listview

[Agmcz]

هل يوجد مكن شبيه لي listview
فيه إمكانية اضافة column

[kachwahed]

السلام عليكم
ما الذي تحاول فعله؟

[Agmcz]

السلام عليكم
ما الذي تحاول فعله؟

وعليكم السلام عليكم

في مشروعي أحتاج listview
انشأت عمودين option و infmation
لكن واجهتني مشكلة عند ادخال معلومات في caption
لأن القيم التي سأدخلها ليست ثابتة

هدا هو سبب سؤالي عن مكون فيه خاصية الأعمدة

[Agmcz]

السلام عليكم تم حل المشكل والحمد لله
هنا كان المشكل

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  s : TStringList;
  i : Integer;
  li: TListItem;
begin
    if FileExists('file.txt') then
    else
     begin
      MessageBox(Handle, 'File Not Found','File Not Found', MB_ICONWARNING);
      Application.Terminate;
      Exit;
      end;
    s := TStringList.Create;
    s.LoadFromFile('file.txt');
    begin
    for i:= 0 to s.Count -1 do
    begin
    Application.ProcessMessages;
    li.ListView1.Items.Add;
    li.Caption := s[i];
  end;
  s.Free;
end;
end; 


هنا حل المشكل

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  s : TStringList;
  i : Integer;
begin
    if FileExists('file.txt') then
    else
     begin
      MessageBox(Handle, 'File Not Found','File Not Found', MB_ICONWARNING);
      Application.Terminate;
      Exit;
      end;
    s := TStringList.Create;
    s.LoadFromFile('file.txt');
    begin
    for i:= 0 to s.Count -1 do
    begin
    Application.ProcessMessages;
    ListView1.Items.Add.Caption := s[i];
  end;
  s.Free;
end;
end; 


إن شاء الله يستفيد منه البعض

[gladiator16]

//

PHP كود :

[align=left]TStringList 常用方法与属性:
var
List: TStringList;
i: Integer;
begin
List := TStringList.Create;
List.Add('Strings1');           {添加}
List.Add('Strings2');
List.Exchange(0,1);             {置换}
List.Insert(0,'Strings3');      {插入}
i := List.IndexOf('Strings1'); {第一次出现的位置}
List.Sort;                      {排序}
List.Sorted := True; {指定排序}
List.Count;                     {总数}
List.Text;                      {文本集合}
List.Delete(0);                 {删除, 0是第一个数据}
List.LoadFromFile('c:\tmp.txt');{打开}
List.SaveToFile('c:\tmp.txt'); {保存}
List.Clear;                     {清空}
List.Free;                      {释放}
end;


//读入字符串
var
List: TStringList;
begin
List := TStringList.Create;
List.CommaText := 'aaa,bbb,ccc,ddd';
//相当于: List.Text := 'aaa' + #13#10 + 'bbb' + #13#10' + 'ccc' + '#13#10' + 'ddd';

ShowMessage(IntToStr(List.Count)); //4
ShowMessage(List[0]); //aaa

List.Free;
end;


//置换分隔符
var
List: TStringList;
begin
List := TStringList.Create;
List.Delimiter := '|';
List.DelimitedText := 'aaa|bbb|ccc|ddd';

ShowMessage(IntToStr(List.Count)); //4
ShowMessage(List[0]); //aaa

List.Free;
end;


//类似的哈希表操作法
var
List: TStringList;
begin
List := TStringList.Create;

List.Add('aaa=111');
List.Add('bbb=222');
List.Add('ccc=333');
List.Add('ddd=444');

ShowMessage(List.Names[1]); //bbb
ShowMessage(List.ValueFromIndex[1]); //222
ShowMessage(List.Values['bbb']); //222

//ValueFromIndex 可以赋值:
List.ValueFromIndex[1] := '2';
ShowMessage(List[1]); //bbb=2

//可以通过 Values 赋值:
List.Values['bbb'] := '22';
ShowMessage(List[1]); //bbb=22

List.Free;
end;


//避免重复值
var
List: TStringList;
begin
List := TStringList.Create;

List.Add('aaa');

List.Sorted := True; //需要先指定排序
List.Duplicates := dupIgnore; //如有重复值则放弃

List.Add('aaa');

ShowMessage(List.Text); //aaa

//Duplicates 有3个可选值:
//dupIgnore: 放弃;
//dupAccept: 结束;
//dupError: 提示错误.

List.Free;
end;


//排序与倒排序
{排序函数}
function DescCompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := -AnsiCompareText(List[Index1], List[Index2]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
List: TStringList;
begin
List := TStringList.Create;

List.Add('bbb');
List.Add('ccc');
List.Add('aaa');

//未排序
ShowMessage(List.Text); //bbb ccc aaa

//排序
List.Sort;
ShowMessage(List.Text); //aaa bbb ccc

//倒排序
List.CustomSort(DescCompareStrings); //调用排序函数
ShowMessage(List.Text); //ccc bbb aaa

//假如:
List.Sorted := True;
List.Add('999');
List.Add('000');
List.Add('zzz');
ShowMessage(List.Text); //000 999 aaa bbb ccc zzz
end;[/align]