TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
To liborb : super... díky moc... našel jsem CreateDir(); to funguje ;) ještě jednou děkuji všem za pomoc ;)
Příspěvky odeslané z IP adresy 94.112.91.–
Anonymní uživatel
Anonymní uživatel
To liborb : aha... no já nakonec neměl nervy a ukládám to jako html do tabulky...
ale měl bych další dotaz... já vlastně ukládám soubory hned u exe souboru, ale jak mám uložit do adresáře, který ještě neexistuje?
zkoušel jsem toto ale nefunguje
listbox5.items.savetofile('Historie\historie.html')Anonymní uživatel
To liborb : data jsou správná, ale já potřebuji, aby se to ukládalo do 4 sloupců
lukinpark
Tady připojuji soubor, který vznikl
lukinpark
Při uložení do xls mi to uloží v pořádku, ale středníky nefungují a do 1 sloupce se zapíše dejmetomu toto: 45;65;78;98;
lukinpark
když ukládán do 'historie.txt' tak funguje...
lukinpark
mám jednoduchý dotaz na ukládání dat z listboxu do souboru .csv
Situace je taková:
mám 4 listbosy a chci je uložit do tabulky... napsal jsem to takhle
for i:=0 to ListBox1.Items.Count-1 do
ListBox5.Items.Add(ListBox4.Items[i]+';'+ListBox1.Items[i]+';'+ListBox2.Items[i]+';'+ListBox3.Items[i]+';');
ListBox5.Items.SaveToFile('historie.csv');co je n tom špatně? Četl jsem že k oddělování sloupců se používají středníky
Anonymní uživatel
To KIIV : ahaaaa... já právě byslel, že se překresluje...
Anonymní uživatel
To KIIV : aha... a jak bych to tedy měl napsat?
Anonymní uživatel
To KIIV :
var
Form1: TForm1;
bmp:TBitmap;
souradnice: TPoint;
x1,y1,x2,y2,i:integer;
selection:boolean;
pocet,sazka,cas:integer;
barvy:array of string[1];
//tlacitka
MZelena,MCerna,MCervena:integer;
CZelena,CCerna,CCervena:integer;
procedure TForm1.Timer1Timer(Sender: TObject);
var j:integer;
barva:string[1];
begin
barva:='0';
bmp:=TBitmap.Create;
bmp.Assign(VytvorScreen);
for i:=0 to bmp.Width-1 do
for j:=0 to bmp.Height-1 do begin
if bmp.Canvas.Pixels[i,j] = rgb(0,0,0) then begin
barva:='1'; // ČERNÁ
Break;
end else if bmp.Canvas.Pixels[i,j] = rgb(197,26,38) then begin
barva:='2'; // ČERVENÁ
Break;
end else if bmp.Canvas.Pixels[i,j] = rgb(33,138,63) then begin
barva:='3'; // ZELENÁ
Break;
end;
end;
if (barva='1') or (barva='2') or (barva='3') then
begin
timer1.Enabled:=false;
if ListBox1.Items.Count>18 then
begin
ScrollBar1.Enabled:=true;
ScrollBar1.Min:=0;
ScrollBar1.max:=ListBox1.Items.Count-17;
end;
if barva='1' then
begin
Label4.Caption:='černá';
label4.Font.color:=clblack;
SetLength(barvy,length(barvy)+1);
barvy[high(barvy)]:=barva;
for i:=ListBox1.Items.Count downto 1 do
ListBox1.Items[i]:=ListBox1.Items[i-1];
ListBox1.Items[0]:='####';
for i:=ListBox2.Items.Count downto 1 do
ListBox2.Items[i]:=ListBox2.Items[i-1];
ListBox2.Items[0]:='';
for i:=ListBox3.Items.Count downto 1 do
ListBox3.Items[i]:=ListBox3.Items[i-1];
ListBox3.Items[0]:='';
for i:=ListBox4.Items.Count downto 1 do
ListBox4.Items[i]:=ListBox4.Items[i-1];
ListBox4.Items[0]:='';
end
else
if barva='2' then
begin
Label4.Caption:='červená';
label4.Font.color:=clred;
SetLength(barvy,length(barvy)+1);
barvy[high(barvy)]:=barva;
for i:=ListBox1.Items.Count downto 1 do
ListBox1.Items[i]:=ListBox1.Items[i-1];
ListBox1.Items[0]:='';
for i:=ListBox2.Items.Count downto 1 do
ListBox2.Items[i]:=ListBox2.Items[i-1];
ListBox2.Items[0]:='####';
for i:=ListBox3.Items.Count downto 1 do
ListBox3.Items[i]:=ListBox3.Items[i-1];
ListBox3.Items[0]:='';
for i:=ListBox4.Items.Count downto 1 do
ListBox4.Items[i]:=ListBox4.Items[i-1];
ListBox4.Items[0]:='';
end
else
if barva='3' then
begin
Label4.Caption:='zelená';
label4.Font.color:=cllime;
SetLength(barvy,length(barvy)+1);
barvy[high(barvy)]:=barva;
for i:=ListBox1.Items.Count downto 1 do
ListBox1.Items[i]:=ListBox1.Items[i-1];
ListBox1.Items[0]:='';
for i:=ListBox2.Items.Count downto 1 do
ListBox2.Items[i]:=ListBox2.Items[i-1];
ListBox2.Items[0]:='';
for i:=ListBox3.Items.Count downto 1 do
ListBox3.Items[i]:=ListBox3.Items[i-1];
ListBox3.Items[0]:='##';
for i:=ListBox4.Items.Count downto 1 do
ListBox4.Items[i]:=ListBox4.Items[i-1];
ListBox4.Items[0]:='';
end;
end;
if pocet>=0 then
begin
Timer2.Interval:=(random(6958)+3000);
end else
if pocet>0 then
begin
Timer2.Interval:=(random(2000)+2500);
end else
if pocet>1 then
begin
Timer2.Interval:=(random(3698)+4593);
end else
if pocet>2 then
begin
Timer2.Interval:=(random(2986)+5874);
end else
if pocet>3 then
begin
Timer2.Interval:=(random(4613)+2983);
end else
if pocet>4 then
begin
Timer2.Interval:=(random(5968)+4168);
end else
if pocet>5 then
begin
Timer2.Interval:=(random(2469)+2948);
end else
if pocet>6 then
begin
Timer2.Interval:=(random(3698)+1597);
end else
if pocet>7 then
begin
Timer2.Interval:=(random(5897)+3647);
end else
if pocet>8 then
begin
Timer2.Interval:=(random(6000)+5739);
end else
if pocet>9 then
begin
Timer2.Interval:=(random(6000)+6138);
end else
if pocet>10then
begin
Timer2.Interval:=(random(6000)+7691);
end else
if pocet>11then
begin
Timer2.Interval:=(random(7000)+8039);
end else
if pocet>12then
begin
Timer2.Interval:=(random(8000)+9109);
end else
if pocet>13then
begin
Timer2.Interval:=(random(9000)+10436);
end;
bmp.Free;
end;
function TForm1.VytvorScreen():TBitmap;
var
Desktop: HDC;
begin
Result := TBitmap.Create;
Desktop := GetDC(0);
try
try
Result.PixelFormat := pf32bit;
Result.Width := x2-x1;
Result.Height := y2-y1;
BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Desktop, x1, y1, SRCCOPY);
Result.Modified := True;
finally
ReleaseDC(0, Desktop);
end;
except
Result.free;
Result := nil;
end;
end;
Jsem teprve na škole, tak některé věci co by se dali napsat líp moc neřeš :-) Jinak to musí být v tomto, protože se to zapisuje vždy, když je tento Timer zapnutý
Anonymní uživatel
To KIIV : to zas nevím jak se dělá :D
Anonymní uživatel
To KIIV : protože se to píše jen když je zapnutý časovač a ten běží jen 5 vteřin a něž to odkrokuju, tak bude po a nebudu vědět co se přidalo... už jsem to zkoušel...
Anonymní uživatel
To Krychlik : to jsem udělal... program funguje dokonale, jen se každých 10 vteřin do paměti zapíše asi 50KB a nevím kde se tam berou... vůbec nevím v jaké proměnné...
Anonymní uživatel
To KIIV : aha... no to mi asi moc nepomůže.. já bych potřeboval vědět, která proměnná, nebo komponenta využívá tolik místa místo, abych věděl co mazat...
Anonymní uživatel
To KIIV : a v delphi přímo není nějaká utilitka?
lukinpark
Zdravím... mám takový problém...
Mám program, který potřebuji mít spuštěn delší dobu, ale do paměti se pořád něco ukládá a po 2 hodinách program spadne...
potřeboval bych zjistit co a kde se ukládá a co mám mazat... ale nevím jak to mám zjistit
