Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
14.12.2006, 20:28 Uhr
Multi

hi
ich möchte so eine art einlog (vor-)programm schreiben
habe es mit TStringList Versucht geht aber nicht so wie ich will
wenn mans so laufen lässt wie unten quelltext(beta version^^)
dann sch(ei)...miert es ab aber wenn man if (Name == "end"){d = 2;Nr = 0;}
dann entsteht ne endlos schleife

bitte um hilfe

C++:

#include <vcl.h>
#pragma hdrstop
#include <string>
#include "zezez.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
const String Datei = "D:\\t.txt";
TStringList *Datei1;
const String Name;
int Nr=0, d = 0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
do{
++Nr;
Name = Datei1->Strings[Nr];
if (Name == Edit1->Text)d = 1;
if (Name == "end")d = 2;
}
while(d==1||d==2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{

if(d == 1)Label1->Caption = "richtig";
if(d == 2)Label1->Caption = "gibst nir";

Datei1 = new TStringList;
Datei1->LoadFromFile(Datei);

}
//---------------------------------------------------------------------------

--
Microschrott präsentiert
Windoof SE Natiol
jetzt sofort den Mega-Bundle bestellen
mit der stylischen 3Tasten Tastartur
(Strg, Alt, Entf)

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
14.12.2006, 20:30 Uhr
Multi

achso in der t.txt stehen paar namen (zb heinz gerfred gerda urs)und zum schluss end
--
Microschrott präsentiert
Windoof SE Natiol
jetzt sofort den Mega-Bundle bestellen
mit der stylischen 3Tasten Tastartur
(Strg, Alt, Entf)

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

002
14.12.2006, 21:19 Uhr
Multi

sorry das posten hans selbst den fehler gefunden (und hab sowieso ins falsche gepostet(jdenfalls falsch benannt))^^

--
Microschrott präsentiert
Windoof SE Natiol
jetzt sofort den Mega-Bundle bestellen
mit der stylischen 3Tasten Tastartur
(Strg, Alt, Entf)

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Delphi / Kylix / Turbo Pascal ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: