DateTimePicker og Memo

Lige 2 hurtige igen fra mig:

1) Hvordan trækker jeg datoen i en DateTimePicker ud og får den til at blive til en string i et memo?

2) Hvad er koden for at læse en bestemt linie i et memo?

Nå vet jeg ikke helt hva du mener med DateTimePicker. Om det er et komponent, så vet jeg ikke.

Du kan bruke dette til å legge datoen og tiden i en memo:

var
  SysTime: TSystemTime;
begin
  Memo1.Lines.Add('Dato og tid: ' + DateTimeToStr(Now));
  Memo1.Lines.Add('Dato: ' + DateToStr(Now));
  Memo1.Lines.Add('Tid: ' + TimeToStr(Now));
  Memo1.Lines.Add('----------------------------------');
  // eller
  GetSystemTime(SysTime);
  Memo1.Lines.Add('Dato og tid: ' + IntToStr(SysTime.wDay) + '.' +
                                    IntToStr(SysTime.wMonth) + '.' +
                                    IntToStr(SysTime.wYear) + ' ' +
                                    IntToStr(SysTime.wHour) + ':' +
                                    IntToStr(SysTime.wMinute) + ':' +
                                    IntToStr(SysTime.wSecond));

Dette velger en bestemt linje i en memo og viser den i en dialogboks:

var
  LinjeStr: String;
  Linje: Integer;
begin
  Linje := 0;
  LinjeStr := Memo1.Lines.Strings[Linje];
  MessageBox(Handle, PChar('Teksten på linje ' + IntToStr(Linje) + ':'#13 + LinjeStr), PChar('Linje ' + IntToStr(Linje)), MB_ICONINFORMATION);

MVH
DiZpel

DOH LOL Havde så lige prøvet ALT andet end den der Men takker da for svaret.

Ingen problem :-)

Mvh Dennis

Lige 2 hurtige igen fra mig:

1) Hvordan trækker jeg datoen i en DateTimePicker ud og får den til at blive til en string i et memo?

2) Hvad er koden for at læse en bestemt linie i et memo?

Nå vet jeg ikke helt hva du mener med DateTimePicker. Om det er et komponent, så vet jeg ikke.

Du kan bruke dette til å legge datoen og tiden i en memo:

Kode 

var
  SysTime: TSystemTime;
begin
  Memo1.Lines.Add('Dato og tid: ' + DateTimeToStr(Now));
  Memo1.Lines.Add('Dato: ' + DateToStr(Now));
  Memo1.Lines.Add('Tid: ' + TimeToStr(Now));
  Memo1.Lines.Add('----------------------------------');
  // eller
  GetSystemTime(SysTime);
  Memo1.Lines.Add('Dato og tid: ' + IntToStr(SysTime.wDay) + '.' +
                                    IntToStr(SysTime.wMonth) + '.' +
                                    IntToStr(SysTime.wYear) + ' ' +
                                    IntToStr(SysTime.wHour) + ':' +
                                    IntToStr(SysTime.wMinute) + ':' +
                                    IntToStr(SysTime.wSecond));

Dette velger en bestemt linje i en memo og viser den i en dialogboks:

Kode 

var
  LinjeStr: String;
  Linje: Integer;
begin
  Linje := 0;
  LinjeStr := Memo1.Lines.Strings[Linje];
  MessageBox(Handle, PChar('Teksten på linje ' + IntToStr(Linje) + ':'#13 + LinjeStr), PChar('Linje ' + IntToStr(Linje)), MB_ICONINFORMATION);

MVH
DiZpel

DateTimePicker er et komponent. (Ligger under Win32 i delphi 7 ent.) og den har en værdi der hedder Date : 'den valgte dato (ex 02-03-2004)' og det er den værdi jeg skal have fat i. Nogen der ved det ?

Ved at svare på den med at hente tid svarede du på et andet spørgsmål som jeg ikke vidste så tak.

Og til nr 2. Hvis det så er fra en .txt fil jeg skal hente det, er det så samme kode?


Mvh
Lasse

Er kommet frem til koden :

procedure TForm1.Button3Click(Sender: TObject);
var
date:string;
begin
date:= datetimepicker1.DateTime;
Showmessage('Datoen er ' + date)
end;

Men så siger den fejlen :

[Error] Incompatible types: 'String' and 'TDateTime'

Hvordan konverterer jeg Tdatetime til en string? Eller kan man ikke det ?

Mvh
Lasse

ps. Hvordan får man den til at lave den der Kodeeksempel som alle andre laver ? har ikke helt fattet det.

[Redigeret d. 02/03-04 16:38:22 af Lasse]

Er kommet frem til koden :

procedure TForm1.Button3Click(Sender: TObject);
var
date:string;
begin
date:= datetimepicker1.DateTime;
Showmessage('Datoen er ' + date)
end;

Men så siger den fejlen :

[Error] Incompatible types: 'String' and 'TDateTime'

Hvordan konverterer jeg Tdatetime til en string? Eller kan man ikke det ?

Mvh
Lasse

ps. Hvordan får man den til at lave den der Kodeeksempel som alle andre laver ? har ikke helt fattet det.

[Redigeret d. 02/03-04 16:38:22 af Lasse]

Prøv med DateToStr.

Mvh Dennis

DOH LOL Havde så lige prøvet ALT andet end den der Men takker da for svaret.

Hvis det så er fra en .txt fil jeg skal hente det, er det så samme kode?

Du kan bruke dette:

var
  LinjeStr: String;
  Linje: Integer;
  StrList: TStringList;
begin
  Linje := 0;
  StrList := TStringList.Create;
  StrList.LoadFromFile('Unit1.pas');
  LinjeStr := StrList.Strings[Linje];
  MessageBox(Handle, PChar('Teksten på linje ' + IntToStr(Linje) + ':'#13 + LinjeStr), PChar('Linje ' + IntToStr(Linje)), MB_ICONINFORMATION);
  StrList.Free;
end;

MVH
DiZpel