Hollöchen!!
Ich bin wieder mal online und bald am verzweifeln!!!
Ich möcht heute die einzelnen Einträge eines Memo Feldes (durch Semikolon getrennt) in 10 verschiedene Textfelder einlesen. Dazu gibt es folgenden Quelltext:
Delphi-Quellcode:
if DM.DM_PF.BANr.Locate('ArtNrACD', txtArtNr.Text, []) = True then begin
// !!!!!!!!
// An dieser Stelle steigt er aus !!!!!
// !!!!!!!!
strTopListF := DM.DM_PF.BANrInfo.AsString;
a := 1;
b := 1;
for i:= 0 to strLen(PChar(strTopListF)) do begin
strBuffer := MidString(strTopListF,i+1,i+1);
if StrComp(PChar(strBuffer),';') = 0 then begin
strBuffer := MidString(strTopListF,a,i);
case b of
1: txtF1.Text := strBuffer;
2: txtF2.Text := strBuffer;
3: txtF3.Text := strBuffer;
4: txtF4.Text := strBuffer;
5: txtF5.Text := strBuffer;
6: txtF6.Text := strBuffer;
7: txtF7.Text := strBuffer;
8: txtF8.Text := strBuffer;
9: txtF9.Text := strBuffer;
10: txtF10.Text := strBuffer;
end; // End Case
a := i + 2;
Inc(b);
end; // End IF StrComp
end; // End For
end; // End Artikel.Locate
Wie bekomme ich den Text des Memo Feldes in die String Variable strTopListF?
Gruß krügi
[edit=sakura] [delphi]-Tags gesetzt Mfg, sakura[/edit]