|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.12.2012, 21:13 | #1 |
Пользователь
Регистрация: 30.03.2010
Сообщений: 48
|
c++ В Delphi
вот написал код на С++ нужно этот же код написать на Delphi если можете помогите!!!
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "main.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; TStringList *List = new TStringList(); // создание указателя на файлы //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn1Click(TObject *Sender) { //чтение из файлов в listbox ListBox1->Items->LoadFromFile("z:/home/usl/www/org.txt"); ListBox2->Items->LoadFromFile("z:/home/usl/www/fio.txt"); ListBox3->Items->LoadFromFile("z:/home/usl/www/usl.txt"); ListBox4->Items->LoadFromFile("z:/home/usl/www/kol.txt"); } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn2Click(TObject *Sender) { //очистка фойлов List->LoadFromFile("z:/home/usl/www/org.txt"); List->Clear(); List->SaveToFile("z:/home/usl/www/org.txt"); List->LoadFromFile("z:/home/usl/www/fio.txt"); List->Clear(); List->SaveToFile("z:/home/usl/www/fio.txt"); List->LoadFromFile("z:/home/usl/www/usl.txt"); List->Clear(); List->SaveToFile("z:/home/usl/www/usl.txt"); List->LoadFromFile("z:/home/usl/www/kol.txt"); List->Clear(); List->SaveToFile("z:/home/usl/www/kol.txt"); //запись в базу данных ADOTable1->Edit(); ADOTable1->FieldByName("org")->AsString = ListBox1->Items->Text; ADOTable1->FieldByName("fio")->AsString = ListBox1->Items->Text; ADOTable1->FieldByName("zac")->AsString = ListBox1->Items->Text; ADOTable1->FieldByName("kol")->AsString = ListBox1->Items->Text; //сохранение и обновление данных ADOTable1->Post(); ADOTable1->Close(); ADOTable1->Open(); //очистка полей куда читались значения ListBox1->Items->Clear(); ListBox2->Items->Clear(); ListBox3->Items->Clear(); ListBox4->Items->Clear(); } //--------------------------------------------------------------------------- |
02.12.2012, 21:18 | #2 |
Участник клуба
Регистрация: 07.12.2011
Сообщений: 1,025
|
List->LoadFromFile("z:/home/usl/www/kol.txt");
List->Clear(); List->SaveToFile("z:/home/usl/www/kol.txt"); это капец чтоб очистить файл не надо его предварительно загружать... а по сабжу меняй -> на . и все
Не стесняемся, плюсуем!
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
создание модуля Delphi для поворота растровых изображений.delphi | Romka62 | Помощь студентам | 1 | 18.11.2012 15:22 |
Не изменяется интерфейс моей программы при переходе с Delphi 7 на Delphi 2010 | Elvisnya | Общие вопросы Delphi | 3 | 28.04.2011 15:59 |
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism | savva-paladin | Софт | 18 | 02.10.2010 20:24 |
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? | redred | Общие вопросы Delphi | 10 | 11.12.2007 10:43 |
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? | dagarik | БД в Delphi | 7 | 22.10.2007 17:54 |