Hilfe- Wie lese ich eine komplexe DB Datei zum editieren aus

[Black07]

Zitat von alzaimar:

Delphi-Quellcode:

Function Split (Var aString; Const aDelimiter : String) : String;
Var
  p : Cardinal;

Begin
  p := pos (aDelimiter, aString);
  if p = 0 then begin
     Result := aString;
     aString :='';
  End Else Begin
    Result := Copy (aString,1,p-1);
    aString := Copy (aString, p+Length (aDelimiter),Maxint)
  End
End;

// Aufruf

  s := 'Eins=Zwei';
  x := Split (s,'=');
// jetzt ist x='Eins' und s='Zwei'

_______________

Irgendetwas übersehe ich gerade

Delphi-Quellcode:

So Testweise umgesetzt
...

Function Split (Var aString; Const aDelimiter : String) : String; 
Var
  p : Cardinal;

Begin
(48)  p := pos (aDelimiter, aString);
(49)  if p = 0 then begin
(50)    Result := aString;
(51)     aString :='';
(52)  End Else Begin
(53)    Result := Copy (aString,1,p-1);
(54)    aString := Copy (aString, p+Length (aDelimiter),Maxint)
(55)  End
(56)  End;



procedure TForm1.btselecteditClick(Sender: TObject);
var
s:string;
begin
   s:='Info_hg=neu';
   ed1.text := Split (s,'=');
   ed2.text:= s;
end;

end.

Hier meckert Delphi

Zitat:

[Fehler] Unit1.pas(48 ): Inkompatible Typen
[Fehler] Unit1.pas(50): Inkompatible Typen: 'String' und 'procedure, untyped pointer or untyped parameter'
[Fehler] Unit1.pas(51): Operator ist auf diesen Operandentyp nicht anwendbar
[Fehler] Unit1.pas(53): Inkompatible Typen
[Fehler] Unit1.pas(54): Operator ist auf diesen Operandentyp nicht anwendbar
[Fehler] Unit1.pas(54): Inkompatible Typen
[Warnung] Unit1.pas(54): Vorzeichenbehaftete und -lose Typen werden kombiniert - beide Operanden werden erweitert

[bitsetter]

Hi,

ändere mal den Kopf der Funktion so abFunction Split (Var aString : String; Const aDelimiter : String) : String; dann sollten die Fehlermeldungen weg sein.