004
08.02.2004, 23:00 Uhr
~Foxy
Gast
|
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "SpeichernMemoAdresseSuchenUnit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
unsigned char i, j;
const anz = 10;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Memo1->Clear();
for (i=0; i<=anz*3-1; i++) Memo1->Lines->Add("leer");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ReihenEingabeClick(TObject *Sender)
{
i = 0;
EdtNr->Text = IntToStr(i);
FocusControl(EdtName);
j = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EdtNameKeyPress(TObject *Sender, char &Key)
{
if (Key == 13) FocusControl(EdtVorname);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EdtVornameKeyPress(TObject *Sender, char &Key)
{
if (Key == 13) FocusControl(EdtOrt);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EdtOrtKeyPress(TObject *Sender, char &Key)
{
if (Key == 13)
{
Memo1->Lines->Strings[i*3] = EdtName->Text;
Memo1->Lines->Strings[i*3+1] = EdtVorname->Text;
Memo1->Lines->Strings[i*3+2] = EdtOrt->Text;
EdtName->Clear();
EdtVorname->Clear();
EdtOrt->Clear();
i++;
EdtNr->Text = IntToStr(i);
FocusControl(EdtName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ReihenAusgabeClick(TObject *Sender)
{
for (i = 0; i <= anz-1; i++)
LblAusgabe->Caption = LblAusgabe->Caption
+ IntToStr(i) + ". "
+ Memo1->Lines->Strings[i*3] + ", "
+ Memo1->Lines->Strings[i*3+1] + ", "
+ Memo1->Lines->Strings[i*3+2]
+ '\r';
j = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Speichernunter1Click(TObject *Sender)
{
if (SaveDialog1->Execute() == true)
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ffnen1Click(TObject *Sender)
{
if (OpenDialog1->Execute() == true)
Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtnSuchClick(TObject *Sender)
{boolean finden = false;
while (finden == false)
{
EdtName->Text = Memo1->Lines->Strings[j*3];
EdtVorname->Text = Memo1->Lines->Strings[j*3+1];
EdtOrt->Text = Memo1->Lines->Strings[j*3+2];
EdtNr->Text = IntToStr(j);
if (( (EdtSuch->Text == EdtName->Text)
||(EdtSuch->Text == EdtVorname->Text)
||(EdtSuch->Text == EdtOrt->Text))
||(j >= anz))
finden = true;
j++;
}
}
//------------------------------
okay hier der komplette quell text ... mein problem ist .. wenn ich auf button eingabe drücke .. gebe ich dienamen ein etc etc .. dann speicher ich die liste unter irgendeinem name .. starte das prog neu lade ,die liste alles funktioniert wunderbar .. aber wenn ich dann wieder auf btneingabe klicke werden die namen wieder gelöscht aber ich will sie ja erweitern! also hinten dran hängen .. ich krieg nicht hin das er den zähler (i) mitspeichert bzw .. mitlädt irgendwelche ideen? |
