Auf Memo Zeilen Zugreifen

[alex.666]

Hallo!

Hab volgendes Problem:

Ich will von einem fkMemo Feld, eine bestimmte Zeile auslesen. (funktioniert aber nicht).

fkMemo:
A
B
C

wenn ich:

ListBox1.Items.Add(ClientDataSet1.FieldByName('Memo1').AsString[1]); versuche, bekomme ich den wert "A".

wenn ich:

ListBox1.Items.Add(ClientDataSet1.FieldByName('Memo1').AsString[2]); versuche, bekomme ich nichts.

wie kann ich direkt auf die zeilen von einem ClientDataSet.Memo zugreifen?

kann mir da jemand helfen? (bitte mit Beispiel Code)

Danke!

[mkinzler]

Zerlege den Inhalt anhand der Zeilentrenner

[alex.666]

und wie mach ich das?

[craash]

versteh ich das problem nicht richtig?

mein erster gedanke wäre mem.lines.strings[x]

[mkinzler]

Z.B. mit Hilfe einer StringListe oder Explode

[alex.666]

@craash
aber ich hab je keine memo komponente, ich hab ja nur ein memo feld. also zu den lienes.string[i] komm ich ja gar nicht.
sollte ich zu blöd sein, dann poste doch bitte einen beispiel code.

@mkinzler
ich versuch mich gerade mit TStringList. bekomme aber nur schutzverletzungen.

[mr_emre_d]

Zitat von alex.666:

Hab volgendes Problem

Ähm ... anscheinend

[alex.666]

ja, ich weiß ich bin ein neuling.
habs aber jetzt:

Delphi-Quellcode:

procedure TForm3.Button3Click(Sender: TObject);
var
  s : TStringList;
begin
  s := TStringList.Create;
  s.Text := 'A' + #13 + 'B';
  ClientDataSet1.Edit;
  ClientDataSet1.FieldByName('Memo1').AsString  := s.Text;
  ListBox1.Items.Add(s.Strings[1]); //(='B')
  //ListBox1.Items.Add(ClientDataSet1.FieldByName('Memo1').AsString);
end;

falls jemand eine schönere lösung hat,...

[HaJo]

Hallo Alex,

den Zugriff auf ein dbMemofeld kannst Du z.B. über eine For-schleife vornehmen:

Delphi-Quellcode:

   
VAR
   I,
   MeineZeile : INTEGER;
   MeinText   : STRING[255];
BEGIN
   MeineZeile := 9 // Deine zu lesende Zeile 10 :-)
   MeinText :='';  // Variable sollten immer initialisiert werden
   
   for I := 0 to MeineForm.dbMemo1.Lines.Count - 1 do 
      begin
         forms.Application.ProcessMessages; // nur wenn Du beim lesen zusehen möchtest
         IF (I = MeineZeile) THEN
            BEGIN
               MeinText := MeineForm.dbMemo1.Lines[I]);
               Break; // gelesen also raus hier 
            END;
      end;
END;

@Alex:
Man darf aber auch die Delphi-Hilfe ab und an bemühen:

Zitat:

In diesem Beispiel wird ein Formular mit einer Schaltfläche und einer Memokomponente verwendet. Wenn der Benutzer auf die Schaltfläche klickt, wird der Inhalt der Datei AUTOEXEC.BAT in die Memokomponente geladen und die sechste Zeile der Datei am oberen Rand des Formulars angezeigt.

procedure TForm1.Button1Click(Sender: TObject);

begin
Memo1.Lines.LoadFromFile('C:\AUTOEXEC.BAT');
Writeln('The 6th line of AUTOEXEC.BAT is: ', Memo1.Lines[5]);
end;

@mkinzler:
Sorry, aber Deine Art zu antworten sorgt hier meist für die Seitenlangen Frage- und Antwortspiele.
Deine Art mit Einzeilern zu antworten ist eher kontraproduktiv und wirft meist mehr Fragen auf statt zu helfen.

[alex.666]

Danke.

aber ich verwende kein TMemo oder TDBMemo, ich greife nur auf ein ClientDataSet(MyBase, XML) zu, welches ein
fkMemo feld hat.
aber mir TStringList, kann ich wunderschön arbeiten(delete, insert,...)

vielen lieben dank...