السلام عليكم تم حل المشكل والحمد لله
هنا كان المشكل
هنا حل المشكل
إن شاء الله يستفيد منه البعض
هنا كان المشكل
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;