Срочно помогите написать программу по Delphi

[shymaxer777]

В файле хранится прайс-лист продукции некоторой фирмы (название товара, цена). Выбирая из списка некоторое название, получить цену этого товара. Элементы списка формируются в момент запуска приложения и соответствуют перечню товаров из файла.

Добавлено через 1 минуту

Цитата: Сообщение от shymaxer777 В файле хранится прайс-лист продукции некоторой фирмы (название товара, цена). Выбирая из списка некоторое название, получить цену этого товара. Элементы списка формируются в момент запуска приложения и соответствуют перечню товаров из файла.

Если сможете пожалуйста скиньте на мыло shymaxer777_91@mail.ru

[Nomto]

прайсник то exel? самое главное то не уточнил

[NiceOlya]

файл с прайс листом в каком формате?

[pleasure]

ODBC драйвера для доступа ;), если использовать Делфи (тема вроде про это ))))))

[FominVM]

Народ помогите написоть программу!
условие:
Нам дан текст проги на некотороя язике программирования, например Pascal.
1. С етого текста надо ведилить терминальние (разние знаки _+-(){}[],\|?) и нетерминальние (букви, цифры) символи и записать их в отдельние файли или типа того можна в мемо если в делфи
пример:
begin
c:=1/2+s;
{dsfsdfdf}
sdfdd
end;

терминальние:


:=
+
;
{
}



;

нетерминальние
begin
c
1/2
s
dsfsdfdf
sdfdd
end

2. прочитать с обоих файлов и востановить все в исходний вид, как до разделения

Первое я сделал, вот так http://www.filehoster.ru/files/eh2075 :
[I]procedure TForm1.TermNeTerm();
var i,n: integer;
s, st,snt: string;
begin
s:=''; //исходний текст
st:=''; //терминальние
snt:=''; //нетерминальние
s:=Memo1.Text;
Memo2.Lines.Clear;
Memo3.Lines.Clear;
for i:=1 to length(s) do
if s[i] in ['*','(','{','}','<','>','[',']','+',')','=','-','.',' ',':',';','''',',',#13,#10] then
begin
st:=st+s[i];
if s[i+1] in ['*','(','{','}','<','>','[',']','+',')','=','-','.',' ',':',';','''',',',#13,#10] then
n:=1 //нечего неделает!
else
st:=st+#13#10
end
else
begin
snt:=snt+s;
if s[i+1] in ['*','(','{','}','<','>','[',']','+',')','=','-','.',' ',':',';','''',',',#13,#10] then
snt:=snt+#13#10;
end;
Memo2.Text:=st;
Memo3.Text:=snt;
end;


а вот со вторим никак неполучается, помогите кто знает

[Vasuha]

Может быть сохранять в файлы позицию знаков? Тогда без проблем восстановить будет.

[FominVM]

Цитата: Сообщение от Vasuha Может быть сохранять в файлы позицию знаков? Тогда без проблем восстановить будет.

можно и так, но надо более универсальний способ для большого объема текста, надо читать текст из обоих файлов и походу писать в один файл

[bradis]

а если использовать ДБ Грид?

[tulitre]

терминальный это символ или нет лучше ищи вот так:
TermSymbols:="_+-(){}[],\|?";
If Pos(ТвойСимвол,TermSymbols)>0 Then
//действия если символ терминальный
Else
//действия если символ не терминальный
End

Добавлено через 11 минут

Цитата: Сообщение от FominVM Народ помогите написоть программу! условие: Нам дан текст проги на некотороя язике программирования, например Pascal. 1. С етого текста надо ведилить терминальние (разние знаки _+-(){}[],\|?) и нетерминальние (букви, цифры) символи и записать их в отдельние файли или типа того можна в мемо если в делфи пример: begin c:=1/2+s; {dsfsdfdf} sdfdd end; терминальние: := + ; { } ; нетерминальние begin c 1/2 s dsfsdfdf sdfdd end 2. прочитать с обоих файлов и востановить все в исходний вид, как до разделения Первое я сделал, вот так http://www.filehoster.ru/files/eh2075 : [I]procedure TForm1.TermNeTerm(); var i,n: integer; s, st,snt: string; begin s:=''; //исходний текст st:=''; //терминальние snt:=''; //нетерминальние s:=Memo1.Text; Memo2.Lines.Clear; Memo3.Lines.Clear; for i:=1 to length(s) do if s[i] in ['*','(','{','}','<','>','[',']','+',')','=','-','.',' ',':',';','''',',',#13,#10] then begin st:=st+s[i]; if s[i+1] in ['*','(','{','}','<','>','[',']','+',')','=','-','.',' ',':',';','''',',',#13,#10] then n:=1 //нечего неделает! else st:=st+#13#10 end else begin snt:=snt+s; if s[i+1] in ['*','(','{','}','<','>','[',']','+',')','=','-','.',' ',':',';','''',',',#13,#10] then snt:=snt+#13#10; end; Memo2.Text:=st; Memo3.Text:=snt; end; а вот со вторим никак неполучается, помогите кто знает

А да, имеет место быть неправильное обращение с компонентом Memo:
строки добавляй - Memo.Lines.Add("Твоястрока");
И вообще перебор всех строк нужно организовать в цикле
For i:=0 to Memo.Lines.Count-1 do
begin
S=Memo.Lines.Strings[i];
//здесь уже обработка строки S
end;

[sectorhell]

попробуй создать пару массивов и записывай туда позицию до обработки, а потом при воссоздании файла проверяй первый ли символ в этой строке или что-то перед ним надо вставить ещё, немного тупой метод и при большом размере исходного файла будет тормозить, но если другого не придумаешь то попробуй

[luben111]

Советую използовать Berg Soft - NextGrid и NxDbGrid компоненты.