Problem med Strings i Delphi

maaned.caption := InttoStr(Calendar.Month) + ',' + InttoStr(Calendar.Year);

Men 120 point er alt for meget ;)

Kan du så hjælpe mig med at lave et array til Calendar.Month... så den skriver Januar istedet for 1 osv...?

procedure TForm1.Button2Click(Sender: TObject);
var
maaned : integer;
mnavn  : string;
begin
maaned := 1; // denne kun til test
case maaned of
1: mnavn := 'Januar';
2: mnavn := 'Februar';
end;

showmessage(mnavn);

end;

Stoney

Const
  MonthArray: Array[1..12] of String = ('Januar', 'Februar', 'Marts', 'April', 'Maj', 'Juni', 'Juli', 'August', 'September', 'Oktober', 'November', 'December');

maaned.caption := MonthArray[Calendar.Month] + ', ' + InttoStr(Calendar.Year);

hvorfor fejl her:

procedure TForm1.CalendarChange(Sender: TObject);
var
maaned : integer;
mnavn  : string;
begin
maaned := Calendar.Month;
case maaned of
1: mnavn := 'Januar';
2: mnavn := 'Februar';
3: mnavn := 'Marts';
4: mnavn := 'April';
5: mnavn := 'Maj';
6: mnavn := 'Juni';
7: mnavn := 'Juli';
8: mnavn := 'August';
9: mnavn := 'September';
10: mnavn := 'Oktober';
11: mnavn := 'November';
12: mnavn := 'December';
end;

maaned.caption := mnavn+','+InttoStr(Calendar.Year);

end;

[Error] Unit1.pas(116): Record, object or class type required
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

snowball, hvor skal det indsættes?

hvordan bruges en memo?

phpsessid: Du skal sætte det ind lige under din "implementation" linie.

Mhy. memo, så prøv med nedenstående:

Memo1.Lines.Add(MonthArray[Calendar.Month] + ', ' + InttoStr(Calendar.Year));

Hvordan rydes den... Deleteall ?

Du sletter alt tekst i en memo ved at udføre nedenstående kode:

Memo1.Clear;

memo.clear;

hmm *LOL*

phpsessid: Fandt du ud af det? :)