BMI-delphi

prijmeni := copy( s, 1, p-1 );

Form5.Edit2.Text:=prijmeni;

//mesto

s := copy( s,p+length('-'),length(s) );

p := pos('-', s );

mesto := copy( s, 1, p-1 );

Form5.Edit3.Text:=mesto;

//ulice

s := copy( s,p+length('-'),length(s) );

p := pos('-', s );

ulice := copy( s, 1, p-1 );

Form5.Edit4.Text:=ulice;

//psc

s := copy( s,p+length('-'),length(s) );

p := pos('-', s );

psc := s;

Form5.Edit5.Text:=psc;

Form5.ShowModal();

jmeno:=Form5.Edit1.Text;

prijmeni:=Form5.Edit2.Text;

mesto:=Form5.Edit3.Text;

ulice:=Form5.Edit4.Text;

psc:=Form5.Edit5.Text;

ListBox1.Items[ListBox1.ItemIndex]:=(jmeno+'-'+prijmeni+'-'+mesto+'-'+ulice+'-'+psc);

end;

procedure TForm4.text1Click(Sender: TObject);

begin

if (FontDialog1.Execute()) then ListBox1.Font.Assign(FontDialog1.Font);

end;

procedure TForm4.barvapozadi1Click(Sender: TObject);

begin

if(ColorDialog1.Execute()) then ListBox1.Color:=ColorDialog1.Color;

end;

end.