delphi5 combobox

[Bx3]

hallo,
bin neu hier und hab nur bedingt weitreichende erfahrung mit delphi.

mein prob is folgendes,
ich wollte ein formular programmieren wo man nur seine daten einträgt und
es dann abspeichert und sie später wieder einladen kann,
mein problem is das ich beim geb-datum comboboxen
verwendet habe und deren inhalt, also item, nich mitspeichern kann,
das problem wirkt sich so aus das wieder der standard inhalt
vorhanden ist wenn ich eine zuvor gespeicherte datei lade aber
eigtl müsste ja das eingegebene datum dasein,
ich selber denke das ich eigtl nur den wert combobox1.itemindex
sichern muss, also so => z:=combobox1.itemindex

tja geht aber net, hier mal mein quelltext, hoffe es kann mir einer
helfen



//speichern

procedure TForm1.BitBtn2Click(Sender: TObject);
type st=string[200];

var data: file of st;
z:st;
begin
assignfile(data,'abiz.txt');
rewrite(data);
.
.
.
z:=combobox1.itemindex;
write(data,z);
.
.
.

closefile(data);
end;


//laden

procedure TForm1.BitBtn3Click(Sender: TObject);
type st=string[200];

var data: file of st;
z:st;
begin
assignfile(data,'abiz.txt');
reset(data);
.
.
.
read(data,z);
combobox1.itemindex:=z;
.
.
.
closefile(data);
end;


schonma thx
Der Bx3

[ManfredG]

schau mal in die hilfe zu ItemIndex. das ist eine zahl, die angiebt, welcher eintrag ausgewählt ist und nicht der string, der dort zu sehen ist.

den string bekommst du mit
strg:=CBox.Items.Strings[CBox.ItemIndex];
deine funktion, mit der du abspreicherst schreibt einen string in die Datei.

gruß manfred

[DeddyH]

Da Du Dir den ItemIndex als String abspeicherst, er aber eigentlich eine Integer ist, musst Du den ausgelesenen String noch umwandeln.

Delphi-Quellcode:

var data: file of st;
z:st;
begin
  assignfile(data,'abiz.txt');
  reset(data);
  .
  .
  .
  read(data,z);
  combobox1.itemindex := StrToIntDef(z,-1); //wenn das Umwandeln fehlschlägt, ItemIndex auf -1 setzen
  .
  .
  .
  closefile(data);
end;

[Bx3]

ahh,
jetze hab ichs, ich hab den itemindex nicht als integer angesehen,
danke das ihr mir das gesagt habt, habs dann so gemacht:

Code:

//speichern
.
.
  z:=inttostr(combobox1.itemindex); write(data,z);
.
.

//laden
.
.
  read(data,z); combobox1.itemindex:=strtoint(z);
.
.

nochma danke, is ja der hammer wie schnell hier geantwortet
wird, top forum ^^ich bleib hier^^