温故知新之数据结构顺序表

1、线性表是具有相同类型的n(n >= 0)个数据元素的有限序列,即:

    线性表(List)是零个或多个数据元素的集合

    线性表中的数据元素之间是有顺序的

    线性表中的数据元素个数是有限的

    线性表中的数据元素的类型必须相同

   

//seq_list.h
#ifndef _SEQ_LIST_H_
#define _SEQ_LIST_H_

struct seq_list
{
    int capacity;
    int length;
    unsigned int *node;
};

struct seq_list* seq_list_create(int capacity);
int seq_list_capacity(struct seq_list* list);
int seq_list_length(struct seq_list* list);
int seq_list_insert(struct seq_list* list, int position, void* data);
void* seq_list_get(struct seq_list* list, int position);
void* seq_list_remove(struct seq_list* list, int position);
void seq_list_clear();
void seq_list_destroy(struct seq_list* list);

#endif


//seq_list.c
#include "seq_list.h"
#include <stddef.h>
#include <malloc.h>

struct seq_list* seq_list_create(int capacity)
{
    int i = 0;
    struct seq_list* ret = NULL;
    if (capacity >= 0)
    {
        ret = (struct seq_list*) malloc(sizeof(struct seq_list) + sizeof(unsigned int) * capacity);
        if (ret != NULL) 
        {
            ret->capacity = capacity;
            ret->length = 0;
            ret->node = (unsigned int*) (ret + 1);
        }
    }
    return ret;
}

int seq_list_insert(struct seq_list* list, int position, void* data)
{
    int i = 0;
    int ret;
    ret = (list != NULL);
    ret = ret && position >= 0 && position < list->capacity;
    ret = ret && list->length < list->capacity;
    if (ret)
    {
        for (i = list->length; i > position; i--)
        {
            list->node[i] = (list->node[i - 1]);
        }
        list->node[i] = (unsigned int)data;
        double *p = (double *)data;
        list->length++;
    }
    return ret;
}

void* seq_list_get(struct seq_list* list, int position)
{
    void* ret = NULL;
    
    if (list != NULL && position >= 0 && position < list->length)
    {
        ret = (void *)list->node[position];
    }
    return ret;
}

void* seq_list_remove(struct seq_list* list, int position)
{
    void* ret = NULL;
    int i = 0;
    
    if (list != NULL && position >= 0 && position < list->length)
    {
        int i = 0; 
        ret = seq_list_get(list, position);
        for (i = position + 1; i < list->length; i++)
        {
            list->node[i - 1] = list->node[i];
        }
        list->length--;
    }
    return ret;
}

int seq_list_capacity(struct seq_list* list)
{
    int ret = -1;
    if (list != NULL)
    {
        ret = list->capacity;
    }
    return ret;
}

int seq_list_length(struct seq_list* list)
{
    int ret = -1;
    if (list != NULL)
    {
        ret = list->length;
    }
    return ret;
}

void seq_list_clear(struct seq_list* list)
{
    if (list != NULL)
    {
        list->length = 0;
    }
}

void seq_list_destroy(struct seq_list* list)
{
    free(list);
    list = NULL;
}

//seq_list_main.c
#include <stdio.h>
#include "seq_list.h"

int main(void)
{
    struct seq_list* list = seq_list_create(100);

    double *p = NULL;
    int ret = 0;

    double a = 1.1;
    double b = 2.2;
    double c = 3.3;
    double d = 4.4;
    double e = 5.5;
    
    seq_list_insert(list, 0, &a);
    seq_list_insert(list, 1, &b);
    seq_list_insert(list, 2, &c);
    seq_list_insert(list, 3, &d);
    seq_list_insert(list, 4, &e);

    printf("list capacity = %d, length = %d\n", seq_list_capacity(list), seq_list_length(list));
    p = (double *)seq_list_get(list, 0);
    if (p != NULL)
    {
        printf("%lf\n", *p);
    }
    
    p = (double *)seq_list_get(list, 3);
    if (p != NULL)
    {
        printf("%lf\n", *p);
    }

    p = (double *)seq_list_remove(list, 3);
    if (p != NULL)
    {
        printf("remove data %lf, index at 3 , after length: %d\n", *p, seq_list_length(list));
    }
    
    p = (double *)seq_list_get(list, 3);
    if (p != NULL)
    {
        printf("after remove, index at 3: %lf\n", *p);
    }

    seq_list_clear(list);
    printf("after clear, list length is %d\n", seq_list_length(list));

    seq_list_destroy(list);

    return 0;
}


Delphi 12.3 作为一款面向 Windows 平台的集成开发环境,由 Embarcadero Technologies 负责其持续演进。该环境以 Object Pascal 语言为核心,并依托 Visual Component Library(VCL)框架,广泛应用于各类桌面软件、数据库系统及企业级解决方案的开发。在此生态中,Excel4Delphi 作为一个重要的社区开源项目,致力于搭建 Delphi 与 Microsoft Excel 之间的高效桥梁,使开发者能够在自研程序中直接调用 Excel 的文档处理、工作表管理、单元格操作及宏执行等功能。 该项目以库文件与组件包的形式提供,开发者将其集成至 Delphi 工程后,即可通过封装良好的接口实现对 Excel 的编程控制。具体功能涵盖创建与编辑工作簿、格式化单元格、批量导入导出数据,乃至执行内置公式与宏指令等高级操作。这一机制显著降低了在财务分析、报表自动生成、数据整理等场景中实现 Excel 功能集成的技术门槛,使开发者无需深入掌握 COM 编程或 Excel 底层 API 即可完成复杂任务。 使用 Excel4Delphi 需具备基础的 Delphi 编程知识,并对 Excel 对象模型有一定理解。实践中需注意不同 Excel 版本间的兼容性,并严格遵循项目文档进行环境配置与依赖部署。此外,操作过程中应遵循文件访问的最佳实践,例如确保目标文件未被独占锁定,并实施完整的异常处理机制,以防数据损毁或程序意外中断。 该项目的持续维护依赖于 Delphi 开发者社区的集体贡献,通过定期更新以适配新版开发环境与 Office 套件,并修复已发现的问题。对于需要深度融合 Excel 功能的 Delphi 应用而言,Excel4Delphi 提供了经过充分测试的可靠代码基础,使开发团队能更专注于业务逻辑与用户体验的优化,从而提升整体开发效率与软件质量。 资源来源于网络分享,仅用于学习交流使用,请勿用于商业,如有侵权请联系我删除!
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值