редактирование текста в делфи

[Valio]

Всё работает. Только что запускал всё.

ошибка означает что в функцию было передано "не число". Вот и всё.
Для данной ошибки - передана "пустота".

Убери пустую строку в конце файла.

[SonicBob]

ааа вот что значит спс

раз уже тут тема большая то кто можете расказать подробно как по 3м координатам построить плоскость ?

359.9916 -10.8920 -21.90
359.5083 -10.9084 5.10
в ходе работы заметили интересную особенность

for i :=0 to ListBox1.Count - 1 do
begin

s := ListBox1.Items.Strings[i];
listbox2.Items.Add(''+trim(copy(s,1,pos('-',s)-1)));
delete(s,1,pos('-',s)-1);
listbox3.Items.Add(''+trim(copy(s,1,pos(' -',s)-1)));
delete(s,1,pos(' ',s));
listbox4.Items.Add(trim(s));

приведенный код советовали тут работает супер но если последнее число больше 0 то 2е не заносится в листбокс подскажите как убрать такую проблему? и на будущие можно ли делать цикл определения знака числа и запускать автоматом разные функции для разных знаков чисел?

[evg_m]

ЗАЧЕМ привязываться к -(минус) при поиске. Разделителем чисел является пробел. Значит его и надо искать.

s := ListBox1.Items.Strings[i];
k:=pos(' ',s);
s1:=copy(s, 1, k-1);
listbox2.Items.Add(trim(s1));
delete(s,1,k);
k:=pos(' ',s);
s1:=copy(s,1,k-1);
listbox3.Items.Add(trim(s1));
delete(s,1,k);
listbox4.Items.Add(trim(s));

будет работать при условии ровно один разделитель между числами. при вероятности нескольких надо каждый раз после удаления (delete) применять trim.

[SonicBob]

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

procedure TForm1.N2Click(Sender: TObject);
var
j,w: string;
begin
if OpenDialog1.Execute then
begin
if OpenDialog1.FileName='' then close else
begin
FName := OpenDialog1.FileName;
listbox8.Clear;
listbox8.Items.LoadFromFile(FName);
opendialog1.free;
begin
for i :=0 to ListBox8.Count - 1 do
begin
j := ListBox8.Items.Strings[i];
w:=stringreplace(j,'.',',',[rfReplaceAll, rfIgnoreCase]);
listbox1.items.add(w);
end;
end;
end;
end;
end;

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

[Serge_Bliznykov]

opendialog1.free;

А этот ужас ещё зачем?!!

Запомните, удалять через деструктор надо ТОЛЬКО те объекты , которые вы сами создаёте (с помощью конструктора .Create)

Вы создавали opendialog1 ?! opendialog1 := TOpendialog.Create(self); ?!
Если да - то почему опять не создаете перед вызовом методов объекта.
если же не создавали (а это скорее всего!!! кинули TOpendialog на форму и всё) - тогда и удалять его не ваша забота!

Короче, выкидывайте строчку opendialog1.free;

[SonicBob]

залез стереть пост тк сам разобрался и а тут уже ответ )

такой вопрос можно ли взять формулу из экселя и вставить в делфи?просто есть идея каким то образом выдернуть нужные формулу что б не печатать вручную а то лень) есть ли способ?

если такое не возможно то можно ли просто подключить эксель для расчетом ?

[Mad_Cat]

вопрос можно ли взять формулу из экселя и вставить в делфи

смотря какую формулу

можно ли просто подключить эксель для расчетов

можно

[SonicBob]

мне нужен раздел статистики примерно половина например корреляция предсказание тенденция и тд
опиши как это делать хочется что б взять что то типа библиотеки формул и воткнуть в делфи )что б программа была не зависима от экселя вот в чем идея

просмотры растут а ответов нет
скажите что нить по проблеме что нить

[Jakethefish]

Вы пробовали гуглить?

[SonicBob]

лучше б по теме че написал а не такой глупый вопрос
гуглил не помогает