Об игре
Новости
Войти
Регистрация
Рейтинг
Форум
0:55
2239
 online
Требуется авторизация
Вы не авторизованы
   Форумы-->Форум для внеигровых тем-->
1|2

Авторпомощь по Делфи
#2902Kao4
 1  2015-09-15 09:33:28
Собственно вопрос такой выгружаю данные из делфи в эксель и в пустые ячейки экселя поподают то ироглифы то спец символы как этого избежать или что можно сделать?
Азураил
 2  2015-09-15 09:35:01
начать с регистрации на специализированных форумах разработчиков на делфи.
#4260Zael_Hell
 3  2015-09-15 09:36:02
Свяжись с лигвистом он расшифрует ироглифы ,а ты потом на понятном русском напишешь.
#6346Мюмла
 4  2015-09-15 09:55:17
Кои 9 ру, ISO 892. Есть фикс в реестре, копай, ищи, всё это просто.
#10518FireSwarm
 5  2015-09-15 10:54:13
Вы прослушали рассказ о пользе обнуления переменных.
ApxaHgeJI
 6  2015-09-15 16:14:28
Киберфорум дал отказ?
erros
 7  2015-09-15 16:19:46
создавай csv файл и разделяй ячейки знаком ;
каждый день так делаю
Balmung
 8  2015-09-15 17:52:15
проверь, в какой кодировке данные, очевидно же. И да, по делфи полно всего в рунете и 100% твой вопрос уже кто-то да задавал.
#10651СвиноПас
 9  2015-09-15 20:59:08
Насоветовали блин.
Еррорз прав, через текст перегоняй. При выводе в эксель тот не знает нифига формата твоих данных (число/текст), посему порой дурь выходит. Гони через текст и да пребудет с тобой счастье.
вариск
 10  2015-09-15 22:53:42
ээээ Макросы?
#10518FireSwarm
 11  2015-09-16 08:23:49
При чем тут формат данных? Записывается мусор из кучи, инициализироваться нужно. Советчики...
#9775__DestroyeR__
 12  2015-09-16 08:29:13
у нас тут каждый второй программист ога
#9775__DestroyeR__
 13  2015-09-16 08:30:50
procedure TfrmMain.ExportGrid(const FileName: string);
var b: TBookmark;
app, a, w, ra, r: OleVariant;
x, y: integer;
TopLeft: String;
BottomRight: Variant;
begin
b := qry.Bookmark;
qry.DisableControls;
qry.First;
try
app := CreateOleObject('Excel.Application');
app.Application.EnableEvents := False;
app.DisplayAlerts := false;
w := app.WorkBooks.Add;
a := w.ActiveSheet;
r := VarArrayCreate([0, qry.RecordCount, 0, qry.FieldCount-1], varVariant);
for x := 0 to qry.FieldCount-1 do begin
r[0, x] := qry.Fields[x].DisplayName;
a.Columns[x+1].ColumnWidth := a.Columns[x+1].ColumnWidth * 2;
end;
y := 1;
while not qry.Eof do begin
for x := 0 to qry.FieldCount-1 do
r[y, x] := qry.Fields[x].AsString;
qry.Next;
inc(y);
end;
finally
TopLeft := 'A1';
BottomRight := a.Cells.Item[qry.RecordCount+1, qry.FieldCount];
ra := a.Range[TopLeft, BottomRight];
ra.Value := r;
app.Visible := true;
app.DisplayAlerts := true;
w.SaveAs(ExtractFilePath(FileName) + ChangeFileExt(ExtractFileName(FileName), ''), EmptyParam, EmptyParam, EmptyParam
, EmptyParam, EmptyParam, EmptyParam
, EmptyParam, EmptyParam, EmptyParam
, EmptyParam, EmptyParam);
app := Unassigned;
qry.Bookmark := b;
qry.EnableControls;
end;
end;
#9775__DestroyeR__
 14  2015-09-16 08:32:02
ну, табуляцию сам расставишь, я в дельфи любитель, больше по С#
#9775__DestroyeR__
 15  2015-09-16 08:34:33
навярняка у тебя не сработает код, из за версий интерпретатора, но суть думаю понял)
ElfRush
 16  2015-09-16 13:11:07
для __DestroyeR__:
больше по С#
есть какие-то наработки? можешь показать?
visatrox
 17  2015-09-16 13:28:38
А я-то думаю: кто это по ночам постоянно данные из делфи выкачивает? Вредитель эдакий.
#9775__DestroyeR__
 18  2015-09-16 14:42:31
для ElfRush:
ага, змейку помню делал, игру, ну и так по мелочи, в основном для кадров и бухов
#9775__DestroyeR__
 19  2015-09-16 14:44:18
ilya_destroyer скайп, одна голова хорошо, а несколько бомба)))
ElfRush
 20  2015-09-16 15:04:00
для __DestroyeR__:
Я шарпом не занимаюсь, любопытно просто. Я си изучаю.
1|2
К списку тем
2007-2025, онлайн игры HeroesWM