Probleme mit tStrings und Strings im Memofeld

[chrizke]

Hi,

ich habe ein Memofeld, welches mit Text gefüllt ist.
Nun muss ich Zeile für Zeile auslesen und bearbeiten.
Ich habe zum Bearbeiten eine Funktion geschrieben die ein Array vom Typ String als Result ausgibt. Das ist auch nicht das Problem.

Das Problem ist, dass wenn ich mit MEMOFELD.lines.strings[i] in einer for-Schleife jede Zeile einlese und in die Funktion übergebe, Delphi6 meckert, dass die Typen (tsring und string) nicht übereinstimmen.

Kann mir jemand sagen, wie ich dieses Problem umgehe???



chrizke

[Fussel_Scampi]

Ich hab genau das selbe problem^^

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, ihr beiden.

Ihr müsst ein wenig Code zeigen - und die Variablen-Definitionen wo nötig.

Freundliche Grüße vom marabu

[MrKnogge]

Moin und herzlich Willkommen in der DP,

MEMOFELD.lines.strings[i] gibt dir ein String zurück, du versuchst ihn wahrscheinlich als TStrings zu behandeln. Poste mal bitte deinen Code.

Gruß

PS:

Zitat von chrizke:

die ein Array vom Typ String als Result

Statt ein Array vom Typ String sollte man lieber den Typ Strings zurückgeben.

[Jürgen Thomas]

Ich sehe nicht, wo das Problem liegen sollte. Lines ist vom Typ TStrings. Mit Memo1.Lines[i] bekommst Du jede einzelne Zeile; mit TStrings (also einer "Kopie" von Memo1.Lines) könntest Du mindestens genauso gut arbeiten wie mit einem Array; und es gibt genügend Funktionen zum Kopieren; z.B.:

Delphi-Quellcode:

Kopie.Add(Memo1.Lines[i]);
Kopie.AddStrings(Memo1.Lines);

Vielleicht kannst Du genauer angeben, bei welcher Zuordnung die inkompatiblen Typen bemängelt werden.

Gruß Jürgen

[chrizke]

also hier ist die Zeile die den Fehler:

Delphi-Quellcode:

     Zeile := mAnzeige.lines.strings[i];
     Zeilenarray:=Split(Zeile, ';');

So Split ist wie folgt deklariert:

Der Interface Teil:

Delphi-Quellcode:

type
  TStringArray = array of String;

  function Split(strring, trennzeichen: String): TStringArray;

Der Implementation Teil:

Delphi-Quellcode:

function Split(strring, trennzeichen: String): TStringArray;
var
  I, L: Integer;
begin
  SetLength(Result, 0);
  if strring = '' then
    Exit;
  I := Pos(trennzeichen, strring);
  L := Length(trennzeichen);
  while I > 0 do
  begin
    Result[High(Result)] := copy (strring,1,I-1);
    delete(strring,1,I);
  end;

Ich brauche das Array als Result, nur nen String bringt nichts!

[Klaus01]

Wie hast Du denn "Zeilenarray" deklariert.

Grüße
Klaus

[marabu]

Vielleicht solltest du dich zuerst mal um deine Split-Funktion kümmern - da liegt einiges im Argen. Deine Schleife steuerst du mit I, aber I wird in der Schleife nicht angepasst.

Der Zugriff auf die einzelnen Zeilen des Memos kann auch über Memo.Lines[i] erfolgen und du kannst den String auch sofort an deine Splitfunktion übergeben - ein Umspeichern ist nicht nötig.

Freundliche Grüße

[chrizke]

zeilenarray wird wie folgt deklariert:

zeilenarray:array of String;
Es geht mir im Moment nur um das Typenproblem und nicht um die Funktion, dass da noch teile nicht ganz ausgereift sind ist mir klar.

[Gruber_Hans_12345]

wie ist zeile (sollte ein normaler string sein) deklariert?

Zitat von chrizke:

also hier ist die Zeile die den Fehler:

Delphi-Quellcode:

     Zeile := mAnzeige.lines.strings[i];
     Zeilenarray:=Split(Zeile, ';');

und in welcher zeile nun genau?

poste eventuell aml den ganzen source code