Obsah súboru txt - nie je korektný

[Stanislav Hruška]

Tak som to upravil

Kód: Delphi [Vybrat]

1. var
2.   Contents: AnsiString;
3. begin
4.     Stream := TFileStream.Create(FileName, fmCreate);
5.     Stream.Write(Contents[1], Length(Contents) * StringElementsize(Contents));

a už to je v poriadku. Ja som si myslel, že AnsiString = Unicode.

[Jirka]

To je pre užívateľa. Nie je to klasický log. (Na tom ešte len budem pracovať.) Kontrolujem kompletnosť údajov. Ak tam bude viac nedostatkov, tak je jednoduchšie si zobraziť/vytlačiť súbor a postupovať podľa toho. Akonáhle zavrie okno o chybách, tak nevie čo tam bolo.

Samostatny Form  s TMemo + 2 Button
do TMemo nasypat zpravu   1 tlačítko pro tisk (např FastReport)   druhé pro  "Kopirovat do schránky"

můžeš používat jako univerzální "hlásič" v celé aplikaci   

[Stanislav Hruška]

Používam TMS TAdvTaskDialog

[Jirka]

Používam TMS TAdvTaskDialog

Tak mi trochu uniká proč nepoužiješ toto a ukládaš pracně něco co uživatel bude potřebovat pouze po kontrolu aktuálního záznamu
stejně další hláška o kontrole bude na 99% odlišná 
(Když bude mít pocit že si hlášku nezapamatuje tak si ji vytiskne případně uloží a pak vyvolá )

[Stanislav Hruška]

Používam TMS TAdvTaskDialog

Tak mi trochu uniká proč nepoužiješ toto a ukládaš pracně něco co uživatel bude potřebovat pouze po kontrolu aktuálního záznamu
stejně další hláška o kontrole bude na 99% odlišná 
(Když bude mít pocit že si hlášku nezapamatuje tak si ji vytiskne případně uloží a pak vyvolá )

Veď píšem, že to používam   Ale čo má tlačidlo urobiť si už musím naprogramovať sám. To nie sú preddefinované prvky.
.

Trochu Ti ušlo, že sa jedná o kompletnú kontrolu údajov. Nekontrolujem jednotlivé záznamy. Ale väzby medzi nimi, nejaké obmedzujúce podmienky, chýbajúce údaje a nepoužité údaje. Tých chýb tam môže byť aj na celú stranu. Bez tejto kontroly sa nemôže spustiť výpočet. Okrem nezmyselných výsledkov by mi aj havaroval program.
Niektoré chyby vypisujem pomocou zostavy. Keď to píšem, tak vidím, že v tom mám poriadny chaos   Budem si to musieť ujasniť.
Zostavy sú väčšinou štruktúrované a tu sa jedná od úplne jednoduchý výpis. Je tam aj tlačidlo Tlač čo dáva v podstate ten istý výsledok. Ale každý má iný spôsob práce. Niekto si to bude značiť na papieri a iný postupne vymazávať zo súboru.

[Jirka]

K tomu jak souvisi trida dialogu TMS (jenz bude nejspis nic vic nez obalem Windows API) pro zobrazeni dialogu s ukladanim do textoveho souboru ci dokonce kontrolou zaznamu bych zrejme potreboval zacit uzivat drogy. Takze za me uz

Drogy brát určitě nemusíš 
Já jsem řešil jen a jen jako zobrazení nějakého obecného hlašení
Pochopil jsem to takto:
1. Uživatel ukládá data
2. Proběhne logická kontrola dat
3. Pokud to neprojde, vygeneruje se text s popisem co je špatně a jak se to má  odstranit
4. Tento text zobrazím v čemkoliv rozumně použitelném (s možností dalších akcí)
5. Uživatele vrátím zpátky k opravě dat a k bodu číslo 1
 
Pokud to tak není  - jsem 

[Stanislav Hruška]

Tak to aj mám. Ale už si určite z predchádzajúceho príspevku pochopil, že toto je niečo úplne iné.

[JaroB]

Kdysi dávno jsem používal takhle jednoduchou procku
 
a funguje to furt

Kód: Delphi [Vybrat]

1. procedure WriteLine(const FName, S: string);
2. var F: Text;
3. begin
4.   AsSign(F, FName);
5. {$I-}
6.   Append(F);
7. {$I+}
8.   if IoResult <> 0 then ReWrite(F);
9.   WriteLn(F, S);
10.   Close(F);
11. end;
12.  

[pf1957]

Zostavy sú väčšinou štruktúrované a tu sa jedná od úplne jednoduchý výpis. Je tam aj tlačidlo Tlač čo dáva v podstate ten istý výsledok. Ale každý má iný spôsob práce. Niekto si to bude značiť na papieri a iný postupne vymazávať zo súboru.

No a proc jednoduse ten report o chybach nepodrzis nekde v pameti jako jeden dlouhy string pres nekolik radku, ktery uzivatelovi umoznis zobrazit v nejakem samostatnem okenku s (Rich)Memo? Tam si to muze prohlizet do zblbnuti. Teoreticky mu muzes jeste udelat kopii a nechat ho v tom memo text editovat=odmazavat? a kdybys na nej chtel byt extra hodny, tak jeste udelat barevnou diff projekci mezi puvodnim a soucasnym stavem.

Predpokladam, ze to nemusi byt persistenti a lidi, kteri si kazdou p*covinu tisknou, tech uz taky moc nebude - to jsou tak max. politici, kteri sice kazdy maji reprezentativni ntb, ale tisknout se pro ne tuny materialu, ktere nikdo z nich stejne necte a hlasuji, aniz by vedeli o cem na pokyn stranickych sekretariatu :-(

[Faltynek]

Kdysi dávno jsem používal takhle jednoduchou procku a funguje to furt

Základní funkcionalita Pascalu na soubory.