|
Автор |
Сообщение |
alla-a-din
Участник тусовки
Зарегистрирован: 19.02.2006 Сообщения: 109 Откуда: Киев
|
|
|
|
Delphi и Access - можно ли их подружить ???
Как открыть для издевательства базу Ms Access в Delphi ??? |
|
Вернуться к началу |
|
|
den
Старожил
Зарегистрирован: 31.01.2006 Сообщения: 13870 Откуда: Кировоград, Украина
|
|
Вернуться к началу |
dhsilabs@jabber.ru |
|
|
den
Старожил
Зарегистрирован: 31.01.2006 Сообщения: 13870 Откуда: Кировоград, Украина
|
|
|
|
Вот решение твоей задачи:
procedure TForm1.Button1Click(Sender: TObject);
// name:surname:email
var name, surname, email : string;
procedure get_fields(s : string);
var i:integer;
c:integer;
begin
name:=''; surname:=''; email:='';
c:=1; // 1ïîëå
for i:=1 to length(s) do
begin
if s[i]=':' then begin c:=c+1; continue; end;
case c of
1: name:=name+s[i];
2: surname:=surname+s[i];
3: email:=email+s[i];
end;
end;
end;
begin
get_fields('Denis:Kolisnichenko:dhsilabs@mail.ru');
ShowMessage(name);
ShowMessage(surname);
ShowMessage(email);
end;
Чтение строки из файла и запись в DB уже сам напишешь |
|
Вернуться к началу |
dhsilabs@jabber.ru |
|
|
Baraw
Зарегистрирован: 21.03.2006 Сообщения: 1
|
|
|
|
Ребят... помогите ктонибуть...
проект сдавать надо через неделю!!!
Вообщем есть структура базы данных на Oracle, нужно написать приложение на Delphi для внесения данных и их анализа. База данных "Абитуриент" |
|
Вернуться к началу |
|
|
|
|
 Главная страница сайта
|
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
|
|