ich will ein Programm schreiben das mehrer random Sätze ausgibt, wenn man ein z.B. ein bestimmtes Wort in die Edit-Komponente eingibt. Mein Problem besteht darin das ich ein Satz erstellen wollte,dass das Wort ausgibt, welches man in die Edit-Komponenter geschriben hat. DAS FUNKTIONIERT KOMISCHERWEISE NICHT:

Code:

int Anzahl;
const int Max = 10;
String Diagnose1[Max];

void __fastcall TForm1::DiagnoseButtonClick(TObject *Sender)
{
Anzahl = random(Max);

if(Edit1->Text == "Hallo" || Edit1->Text == "Guten Tag")
Panel1->Caption = Diagnose1[Anzahl];

}

//==========================================================================

void __fastcall TForm1::FormCreate(TObject *Sender)
{
randomize();

// 1
Diagnose1[0] = Edit1->Text + ",ebenfalls";
Diagnose1[1] = Edit1->Text + ", danke dir auch!";
Diagnose1[2] = "usw";
Diagnose1[3] = "usw";
Diagnose1[4] = "usw";
Diagnose1[5] = "usw";
Diagnose1[6] = "usw";
Diagnose1[7] = "usw";
Diagnose1[8] = "usw";
Diagnose1[9] = "usw";
}

Bei dem Diagnosen(Edit1->Text) kommt aber das Wort nicht, das der Benutzer eingegeben hat sondern einfach nur der nachfolgende "Text":

MFG
*Harry*

FormCreate wird nämlich dierekt nach dem konstruktor ausgeführt

MFG

MFG

ahja, funktioniert! Danke

MFG
Harry

int Anzahl; 
const int Max = 10; 
String Diagnose1[Max]; 

void __fastcall TForm1::DiagnoseButtonClick(TObject *Sender) 
{ 
Anzahl = random(Max); 

if(Edit1->Text == "Hallo" || Edit1->Text == "Guten Tag") 
Panel1->Caption = Diagnose1[Anzahl]; 

} 

//========================================================================== 

void __fastcall TForm1::Edit1Exit(TObject *Sender) 
{ 
randomize(); 

// 1 
Diagnose1[0] = Edit1->Text + ",ebenfalls"; 
Diagnose1[1] = Edit1->Text + ", danke dir auch!"; 
Diagnose1[2] = "usw"; 
Diagnose1[3] = "usw"; 
Diagnose1[4] = "usw"; 
Diagnose1[5] = "usw"; 
Diagnose1[6] = "usw"; 
Diagnose1[7] = "usw"; 
Diagnose1[8] = "usw"; 
Diagnose1[9] = "usw"; 
}

und außerdem warum schreibst du nicht alles in die onexit rein?
(oder du fängst ein enter ab mit onkeydown)

wäre vielleicht vom bedienen her einfacher anstatt erst noch ne button zu kicken

gruß

Multi

Ich will ein Programm erstellen, das wenn jmd. eine Text in die Komponente Edit eingibt und den DiagnoseButton betätigt, die Komponente Panel ein random Text ausgibt.. Wie könnte ich es besser machen ? - Gefällt mir au net so ganz..

MFG

ja, eben nur für Hallo und Guten Tag - Wie könnte ich besser schreiben ?

MFG

Die beiden ersten Einträge würde ich aus dem Array herausnehmen, da sie Sonderfälle darstellen und prinzipiell nichts mit dem Programmablauf zu tun haben. Du prüfst also einfach auf 'Hallo' und 'Guten Tag' und wenn das im Edit steht, fügst Du den Ausgabestring einfach von Hand zusammen, ohne das Array zu verwenden.
Wobei ich bei der Prüfung noch die AnsiString Methoden UpperCase() und AnsiPos() verwenden würde.
z.B.

if (Edit1->Text.UpperCase().AnsiPos("HALLO")) == 1)

Mit dieser Zeile prüfst Du, ob am Anfang des Strings im Edit Hallo steht, unabhängig davon, ob der User nur Großbuchstaben, oder nur Kleinbuchstaben, oder beides gemischt verwendet hat. Wenn das Hallo irgendwo im Edit stehen darf brauchst Du nur == 1 durch > 0 zu ersetzen. (Schau Dir bitte die Hilfe zu UpperCase und AnsiPos an.)

Versuch das mal umzusetzen.

danke für den Tipp, dass mit dem Groß- und Kleinbuchstaben hätte ich wahrscheinlich auch net umsetzen können!

Das == 1 bedeutet also, dass die Buchstaben ob groß ob klein unterschiedlich in der Edit1-Komponente stehen können ?

MFG

Das == 1 bedeutet also, dass die Buchstaben ob groß ob klein unterschiedlich in der Edit1-Komponente stehen können ?

Nö, der Text im Edit wird durch UpperCase() in Großbuchstaben gewandelt. Der Vegleich bezieht auf die Position des Wortes 'HALLO'. Bei == 1 muß er direkt am Anfang des Strings stehen, bei > 1 kann er irgendwo im String stehen. Genaueres findest Du in der Hilfe zu AnsiString::AnsiPos().

Grüße Joe_M.

Nein der Vergleich auf == 1 hat nichts mit Groß/Kleinbuchstaben an sich zu tun.
Sondern das ist das Ergebnis der Methode AnsiString::AnsiPos.
Um die Operation zu verstehen must du die erstmal zerlegen

Edit1->Text // Es wird der Inhalt des Edit-Controls kopiert
.UpperCase() // Die Kopie wird so bearbeitet das alle Buchstaben in ihrer Großschriebweise sind
.AnsiPos("HALLO") // In der bearbeiteten Kopie wird nach dem String "HALLO" gesucht
) == 1) // Überprüfung ob das Suchergebnis ergibt das der gesuchte String wirklich am Anfang des Edit-Wertes steht.

/Edit : zu langsam

bis bald
akari