German Texte von EditText auf ScrollViews auslesen

[Gumnam]

Hallo Leute,

ich habe auf einem ScrollView 6 Panels, auf denen jeweis ein EditText ist.
Wenn ich die entsprechende Activity verlasse (über Activity_Pause) möchte ich die Inhalte dieser 6 Textfelder in globale Variablen retten.
Wie spreche ich denn diese unterschiedlichen EditText Objekte an?

Inhalt1 = Textfeld.Text ???

(alle EditText haben den Namen "Textfeld" - besitzen aber individuelle Tag's)

Grüße

 

[klaus]

Wie hast Du die ScrollView aufgebaut ?
Warum hast Du 6 Panels und nur eine EditText auf jedem Panel ?
Du könntest die EditText Views direkt in die ScrollView einbinden das würde den Aufruf der EditText Views erleichtern.
Aber ohne zu wissen wie die ScrollView aufgebaut ist es schwer einen konkreten Ratschlag zu geben.

 

[Gumnam]

Sub Activity_Create(bolFT as Boolean)
  Activity.Initialize("A")
  Dim SV as ScrollView("SV")
  SV.Initialize(600dip)
  Activity.AddView(SV,0,0,100%x,100%y)
  SetEt(SV,1,"A")
  SetEt(SV,2,"X")
  SetEt(SV,3,"To")
  SetEt(SV,4,"QIuz")
  SetEt(SV,5,"QI")
  SetEt(SV,6,"QIz")

End Sub

Sub SetET(scv as Scrollview,Nr as int,T as String)
  Dim Edt as EditText: Edt.Initialize("TextBox"): Edt.Tag=T
  scv.Panel.AddView(Edt,0,(Nr-1)*100dip,100%x,100dip)
End Sub

(Vereinfacht sieht das so aus - sorry, habe ich aus dem Kopf getippt)
Habe die Sache mit dem (überflüssigen) Panel gleich aufgegriffen und rausgeschmissen

 

[klaus]

Du kannst jede EditText View so aufrufen.

Sub GetText(Indiz As Int) As String
    Dim edt As EditText
    edt = SV.Panel.GetView(Indiz)
    Return edt.Text
End Sub

GetText(0) gibt A zurück
GetText(5) gibt QIz zurück

 

[Gumnam]

Hallo Klaus,

vielen Dank für den Hinweis!

Zuerst hatte ich SV in der Sub Activity_Create dimensioniert - dann klappte der Zugriff auf SV natürlich nicht ausserhalb dieser Sub...
Dann hatte ich die Methode GetView() vergeblich auf dem ScrollView gesucht - da fehlte dann das Objekt Panel...

Manchmal sind es die Kleinigkeiten!

Vielen Dank für Deine schnellen Antworten.