Сообщений в теме: 764

[Vit_Nik]

смотрите скрины для разн вариантов заполнения...
http://foto.mail.ru/..._myphoto/5.html
http://foto.mail.ru/..._myphoto/6.html

[Visual1]

Пока еще не убедили. Вечером посмотрю еще раз.

Сообщение отредактировал Visual1: 07.11.2009, 12:26:24

[Vit_Nik]

PAS - файл прислать? Попробуйте...

[Visual1]

А, теперь понял, где я тупил! Оказывается, я не обратил внимание, что writeline выводится только один раз, уже после цикла.

Вы правы. Респект.

[farhat]

День Добрый Кодерам! Есть вопрос по Delphi, надо на форму вставить большой текст, типа учебника. С помощью какого компонента это можно сделать, чтобы просматривать а не изменять. Пробывал через TWebbrowser но там получается надо указывать путь к файлу, если программу в другую папку переместить то ссылки теряются. Может есть какой нибудь способ исправить или же другой какой нибудь вариант. Буду благодарен любым советом!

[Big Joe]

День Добрый Кодерам! Есть вопрос по Delphi, надо на форму вставить большой текст, типа учебника. С помощью какого компонента это можно сделать, чтобы просматривать а не изменять. Пробывал через TWebbrowser но там получается надо указывать путь к файлу, если программу в другую папку переместить то ссылки теряются. Может есть какой нибудь способ исправить или же другой какой нибудь вариант. Буду благодарен любым советом!

TRichEdit

TWebbrowser - для отображения веб-страниц.

[Камея]

Вот так примерно должна выглядеть программка, согласно заданию:

program lab8;
uses crt;
type
rec = record
nazv: string[20];
fam: string[20];
kol_gol: integer;
end;
var
hit, hit1 : rec;
f: file of rec;
c: char;

procedure WriteToFile;
begin
c:='1';
rewrite(f);
writeln('Zapis dannyh v fail');
repeat
write('Vvedite nazvanie pesni:'); readln(hit.nazv);
write('Vvedite familiu ispolnitelya :'); readln(hit.fam);
write('Vvedite koli4estvo golosov :'); readln(hit.kol_gol);
write(f, hit);
writeln('Budut li e6e zapisi (da - 1)');
readln©;
until c<>'1';
close (f);
end;

Procedure PrintFromFile;
begin
reset(f);
writeln('Spisok hitov:');
while not(eof(f)) do
begin
read(f, hit);
writeln(hit.nazv:20, hit.fam:5, hit.kol_gol);
end;
readln;
end;

Procedure SearchInFile;
var max:integer;
begin
reset(f);
writeln('Pesnya c naibol6im koli4estvom golosov');
max:=1;
while not(eof(f)) do
begin
read(f, hit);
if hit.kol_gol>max then begin
max:=hit.kol_gol;
hit1.nazv:=hit.nazv;
hit1.fam:=hit.fam;
hit1.kol_gol:=hit.kol_gol
end;
end;
writeln(hit1.nazv:20,hit1.fam:20,hit1.kol_gol);
readln;
end;

BEGIN
ClrScr;
assign(f, 'hit.txt');
while (c <>'4') do begin
writeln('Menu programmy:');
writeln('1 - Vvesti zapisi v file s uni4tozheniem pred.zapisei');
writeln('2 - Vyvesti zapisi iz faila na ekran');
writeln('3 - vyvesti zapisi hitov, imejushih naibol6ee kol golosov');
writeln('4 - vyiti iz programmy');
write('Vash vybor:');
readln©;
case c of
'1' : WriteToFile;
'2' : PrintFromFile;
'3' : SearchInFile;
end;
end
END.

Работать буит....

Спасибо !

[Камея]

Visual1 и вам тоже спасибо за участие!!!!

[farhat]

День Добрый Кодерам! Есть вопрос по Delphi, надо на форму вставить большой текст, типа учебника. С помощью какого компонента это можно сделать, чтобы просматривать а не изменять. Пробывал через TWebbrowser но там получается надо указывать путь к файлу, если программу в другую папку переместить то ссылки теряются. Может есть какой нибудь способ исправить или же другой какой нибудь вариант. Буду благодарен любым советом!

TRichEdit

TWebbrowser - для отображения веб-страниц.

благодарю. я нашел информацию.
webbrowser1.Navigate( webbrowser1.Path+'1.htm') // webbrowser1.Path+ при этом параметре файл должен находиться в папке с проектом. то тогда пути не теряются.

[LETONNA]

Подскажите пожалуйста, нужна программа для менеджеров по ведению клиентской базы с телефонами и адресами+движение товара и его реализация по точкам. Без накладных, приходников и т.п как в 1С.

[hes]

Подскажите пожалуйста, нужна программа для менеджеров по ведению клиентской базы с телефонами и адресами+движение товара и его реализация по точкам. Без накладных, приходников и т.п как в 1С.

скорее вопрос в раздел Софт это.
тут программирование в общем то
а там могут и подсказать.

[LETONNA]

Подскажите пожалуйста, нужна программа для менеджеров по ведению клиентской базы с телефонами и адресами+движение товара и его реализация по точкам. Без накладных, приходников и т.п как в 1С.

скорее вопрос в раздел Софт это.
тут программирование в общем то
а там могут и подсказать.

спасибо

[Doperst]

Есть тут Java-программисты?
Скажите, можно ли как-нибудь на яве получить все существующие экземпляры какого-либо класса?
Что-нибудь вроде:
for (i=0; i<MyClass.instances().size(); i++) {
MyClass inst = Class.instances(i);
}



UPD: Ну вот, собственно, ответ.

Сообщение отредактировал Doperst: 15.11.2009, 15:42:27

[yedyge]

то, что не умещается в объёме оперативки головы программиста кладётся в бд.
оттуда select *

=делайте связный список своих объектов, потому как раз спросив их всех, вы расписались в том, что вам необходимо было их изначально иметь в векторе тем или иным способом.

Сообщение отредактировал yedyge: 18.11.2009, 00:19:43

[Oganan]

Добрый день!
Может я не туда и не с тем обращаюсь - если да, то люди добрые пошлите пожалуйста меня куда следует
У сестры возникла проблема при работе с программой Windows Movie Maker. Она сотворила фильмец из фотографий с музыкой и надписями (человек только начал этому обучаться). Все получилось нормально, минут так на 15. Хочет перезаписать файл, чтобы открывался сразу не как программа, а шел сразу киношкой. Она так уже пробовала делать раньше, но с файлом поменьше (длительностью минут 5-7), все получалось, а вот с вновь созданным никак, может комп слабоват, или не в этом дело. Помогите пожалуйста, если сможете.
Заранее благодарна!

[edu_dastan]

Всем привет! у меня есть одна просьба, надеюсь кто-нибудь поможет:
не могли бы Вы отправить резюме Айтишника на русском и английском языках, буду очень признателен...
мой ящик: edu_dastan@mail.ru

[Big Joe]

Всем привет! у меня есть одна просьба, надеюсь кто-нибудь поможет:
не могли бы Вы отправить резюме Айтишника на русском и английском языках, буду очень признателен...
мой ящик: edu_dastan@mail.ru

А гуглить лень ?

[Dalilah]

всем привет!
кто нить тут знает что нить о Renderman? траблы при написании проги которая анимирует пиксаровскую лампу

[Botashechka]

ПЛИИИЗ,хелп мииии!!!!!!вот задачка...с помощью while написать программу определения идеального веса для взрослых людей по формуле Идельн.вес=рост-100.Выход из цикла значение роста 250....вот то что сама написала....вообще программа не идёт..помогите!
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const n=6;
var
i,f:integer;
b,a:array[1..n] of integer;
begin
with stringgrid1 do
begin
for i:=1 to n do
a[i]:=strtoint(stringgrid1.Cells[i-1,0]);
end;
for f:=1 to n do
while a[i]<250 do
begin
b[f]:=a[i]-100;
with stringgrid2 do
cells[f-1,0]:=inttostr(b[f]);
end;

end;

end.

[Atl@ntis]

Нужна помощь по Java
если точнее GUI
надо создать панельку.

вот в таком духе.

Сообщение отредактировал Atl@ntis: 02.12.2009, 01:42:25