Function Time and blank result

[xinyiman]

I'm creating a program already quite large, so I used the time function successfully, the other day but always within the program I used the time and now I no longer restitute result! But if I open a new project and try to run the time it works! Who can explain why?

[Leledumbo]

Who can explain why?

Only God can
At least post the problematic code along with its dependencies (variables, const, types, used relevant procs/funcs, etc.). We're not seers.

[xinyiman]

No, it is a program designed directly with Lazarus.
Well, to tell me if I write

ShowMessage (TimeToStr (Time));

I return an empty string!

[xinyiman]

Ubuntu 9.10 amd64

[xinyiman]

As I said, replicate the error does not happen in other programs, but within that project always true.
I would not like there was something that sends conflicting. If we take the project and I do run on Windows this works fine! The fact is that I need to run it on ubuntu!

[xinyiman]

Assume you have 64 version of Ubuntu and FPC and Lazarus for 64-bit...

I cannot tell what is the problem, perhaps some background/foreground color mix-up...

Try to put statical text in your ShowMessage instead of time function conversion. If you get empty string you need to debug your app...

I do not understand what you mean

[Bart]

What happens if you do this?
(Needs LCLProc unit)

Code: [Select]

  debugln(DbgS(Time),' "',TimeToStr (Time),'"');

It should output something like:
5.00102650462963E-001 "12:00:08"

(Output will appear on the console, so you'll have to start it from a console (I guess).)

Bart

[xinyiman]

What happens if you do this?
(Needs LCLProc unit)

Code: [Select]

 debugln(DbgS(Time),' "',TimeToStr (Time),'"');

It should output something like:
5.00102650462963E-001 "12:00:08"

(Output will appear on the console, so you'll have to start it from a console (I guess).)

Bart

Result:

[WARNING] Out of OEM specific VK codes, changing to unassigned
[WARNING] Out of unassigned VK codes, assigning $FF
0,51580658564814 ""

[xinyiman]

Result:

[WARNING] Out of OEM specific VK codes, changing to unassigned
[WARNING] Out of unassigned VK codes, assigning $FF
0,51580658564814 ""

Are you copy some code from webpage? IIRC, simple copy and paste sometimes add some $FF on Linux.  Perhaps that is the problem, cleanup your code from $FF.

How do I?

[xinyiman]

DeCodeTime (Time,Hh,MM,SS,MS);
Writeln ('Present Time is : ',FormatDateTime('hh:mm:ss',EnCodeTime (HH,MM,SS,MS)));
writeln('Prova: ',TimeToStr(Time));


The first writeln returns the correct value. The second hand returns nothing!
I suggest some ideas?

[xinyiman]

But what I say is that if it were a problem Lazzarus should recur in every application that I do. Instead solely in this one! If I create a new application that works, do not understand why. Not that there is some variable related to the project that contains the format for date and time and who may be affected that variable?

[xinyiman]

I'm run-out of ideas...

Try to reinstall FPC and Lazarus.

Source code of your textual files you may cleanup if you make some simple console app to filter $FF, or copy it  to some text processor which can filter all unknown characters and then save it again. I do not remember which text processor I used.

Or rewrite by hands problematic line in source.

There is possibility that problem also caused something else...

What do you mean $ FF?

[Martin_fr]

what is the output of
writeln(LongTimeFormat.LongTimeFormat);

Maybe it get's reset somewhere?

[Bart]

Why does anyone think there might be a $FF character in OP's source code?

If it were, fpc would probably choke on it if it were not in a string ("fatal: illegal character"), and if it were in a string (i.e. between single quotes), how would that possibly affect the behaviour of the example code, since OP does not do any conversion of string into whatever?

What is the output of

Code: [Select]

var
  S: ShortString;
  T: TDateTime;
     
...
  writeln('TimeSeparator = ',TimeSeparator);
  writeln('LongTimeFormat = ',LongTimeFormat);
  TimeSeparator := ':';
  LongTimeFormat := 'hh:mm:ss';
  T := Time;
  DeCodeTime (T,Hh,MM,SS,MS);
  Writeln ('Present Time is : ',FormatDateTime('hh:mm:ss',EnCodeTime (HH,MM,SS,MS)));
  S := TimeToStr(T);
  writeln('Prova: "',S,'"');

Bart

[xinyiman]

Why does anyone think there might be a $FF character in OP's source code?

If it were, fpc would probably choke on it if it were not in a string ("fatal: illegal character"), and if it were in a string (i.e. between single quotes), how would that possibly affect the behaviour of the example code, since OP does not do any conversion of string into whatever?

What is the output of

Code: [Select]

var
  S: ShortString;
  T: TDateTime;
      
...
  writeln('TimeSeparator = ',TimeSeparator);
  writeln('LongTimeFormat = ',LongTimeFormat);
  TimeSeparator := ':';
  LongTimeFormat := 'hh:mm:ss';
  T := Time;
  DeCodeTime (T,Hh,MM,SS,MS);
  Writeln ('Present Time is : ',FormatDateTime('hh:mm:ss',EnCodeTime (HH,MM,SS,MS)));
  S := TimeToStr(T);
  writeln('Prova: "',S,'"');

Bart

Result:
[WARNING] Out of OEM specific VK codes, changing to unassigned
[WARNING] Out of unassigned VK codes, assigning $FF
TimeSeparator = :
LongTimeFormat =
Present Time is : 07:49:49
Prova: "07:49:49"
hh:mm:ss


In this way is back to work. Thank you. But why he lost the time format?