Avatar billede nfssister Forsker
03. februar 2005 - 10:37 Der er 7 kommentarer og
1 løsning

2 opgaver, hvordan gør jeg dette ?

Jeg har lavet et program hvor man skriver sit navn ind, og så tæller den hvor mange mellemrum der er, og hvor mange karaktere der er...... men nu har jeg fået stillet 2 opgaver jeg simpelthen ikke kan:

Opgave 5 (Delete/Pos/Length)
Udgangspunkt i opgave 3:
De tre delnavne skal nu ”pilles” ud og skrives i hver sin editboks med deres tilsvarende længder.

Opgave 6 (Insert, Pos, Length)
En e-mail adresse har formatet:  xxx@yyy.dk
xxx og yyy er af variabel længde.
Konstruer og test et visuelt program, der som input kun har xxx@.dk i en editboks.
Programmet skal nu kunne indsætte yyy, der indtastes i en ny editboks, på den rigtige plads i e-mail’en. Resultat email’en vises i en editboks for sig.

Den forgående kode er:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String navn = Edit1->Text;
int laengde = navn.Length();
Edit2->Text = laengde;
if (navn.Pos(" "))
CheckBox1->Checked = 1;
else
CheckBox1->Checked = 0;

}

Edit1 er der hvor navnet står i
Avatar billede arne_v Ekspert
03. februar 2005 - 10:41 #1
Og du bruger C++Builder ...
Avatar billede nfssister Forsker
03. februar 2005 - 10:44 #2
jeps... C++ Borland 6
Avatar billede nfssister Forsker
03. februar 2005 - 10:47 #3
mente så Borland C++ Builder 6
Avatar billede axcx Nybegynder
03. februar 2005 - 11:25 #4
svar til opg 5.

void __fastcall TForm1::Button1Click(TObject *Sender)
{

Edit2->Text = Edit1->Text.Delete(Edit1->Text.Pos(" "), (Edit1->Text.Length() -Edit1->Text.Pos(" "))+1);
Edit1->Text=Edit1->Text.Delete(1, Edit1->Text.Length() -(Edit1->Text.Length()-Edit1->Text.Pos(" ")));

Edit3->Text = Edit1->Text.Delete(Edit1->Text.Pos(" "), (Edit1->Text.Length() -Edit1->Text.Pos(" "))+1);
Edit1->Text=Edit1->Text.Delete(1, Edit1->Text.Length() -(Edit1->Text.Length()-Edit1->Text.Pos(" ")));

Edit4->Text = Edit1->Text.Delete(Edit1->Text.Pos(" "), (Edit1->Text.Length() -Edit1->Text.Pos(" "))+1);
Edit1->Text=Edit1->Text.Delete(1, Edit1->Text.Length() -(Edit1->Text.Length()-Edit1->Text.Pos(" ")));

Edit1->Text="";

Edit5->Text=Edit2->Text.Length();
Edit6->Text=Edit3->Text.Length();
Edit7->Text=Edit4->Text.Length();
}
Avatar billede nfssister Forsker
03. februar 2005 - 11:46 #5
Ja det klarede jeg så flot... der er self stadig point til ham der løser den anden opgave også
Avatar billede bertelbrander Novice
03. februar 2005 - 23:56 #6
Opgave 6:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString Temp = Edit1->Text;
  int Pos = Temp.Pos("@");
  if(Pos)
  {
    Temp.Insert("yyy", Pos + 1);
    Edit2->Text = Temp;
  }
}
Avatar billede nfssister Forsker
06. februar 2005 - 01:15 #7
Vil du have point ? for så laver jeg lige en post til dig med point :)
Avatar billede bertelbrander Novice
06. februar 2005 - 01:19 #8
Nej tak, jeg samler ikke på point.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



IT-JOB