Aufgabe: Zeile Stück für Stück auslesen und verarbeiten???

[Harlicon]

Hi,

mein Chef kam grade eben an und meinte zu mir, ich soll ihm einige Anweisungen basteln.
Unter anderem möchte er folgendes:

In Zeile xy der SQL-Datenbank steht folgendes = ' 12; 31; 02.03.2007; Peter Mustermann; etc.. '
mit GetStr soll dann immer ein Teil der Zeile, bis zum nächsten Semikolon exklusiv ausgelesen
werden und dann der nächste Teil.
Sodass man dann folgende try except schleife nutzen kann

Delphi-Quellcode:

try
  GetInt :=  Result := StrToInt(GetStr);
except
  Result := 0;
end;

Oder so ähnlich

Nya und ich stehe da jetzt grade wie der Ochs vorm Berge

Kann mir da vll jemand weiterhelfen?

Liebe Grüße Harli

[SirThornberry]

die funktion müsste in etwa so aussehen:

Delphi-Quellcode:

function GetStringPart(AWholeString: String; var AFrom: Integer; out AExtractedPart: String): Boolean;
begin
  //von AFrom aus in AWholeString das nächste Semikolon suchen.
  //Wenn eins gefunden wurde dann den Teil zwischen AFrom und der Fundstelle zurück geben. Und natürlich AFrom auf eins hinter der letzten Fundestelle setzen
end;

oder du nimmst einfach die Funktion SplitOutIndex aus folgendem Beitrag:
http://www.delphipraxis.net/internal...=205244#205244

wobei diese Funktion eben immer von Anfang an sucht. Schneller ist wie oben beschrieben die letzte fundstelle anzugeben von der aus gesucht werden soll

[Klaus01]

Suche einmal bitte ach TStringList und delimtedText.
Damit ließe sich das erschlagen.

sl.DelimtedText:='12;13;02.03.2007';

dann ist in sl[0] die 12 ind sl[1] die 13 usw.

Vorher noch den delimter auf ; setzen.

Grüße
Klaus

[Harlicon]

Hey, vielen, vielen Dank für die schnellen Antworten (auf DP ist halt Verlass ).
Ich hätte vll dazu sagen sollen, dass ich nicht grade die Coding-Ikone schlechthin bin (eher das Gegenteil ^^" )
und zwar den Funktionsrumpf verstehe aber ihn wohl nicht füllen kann.

[SirThornberry]

ist auch nicht notwendig. Denn wie Klaus01 schon sagte gibt es eine einfachere Variante. Zudem habe ich ja auch einen link zu einer fertigen variante gepostet. Und wenn dein Chef will das du so eine Funktion schreibst wird er sich auch was dabei denken. Vielleicht will er einfach das du dich damit beschäftigst um es zu lernen.

[Nuclear-Ping]

... und am Ende will der Chef ohnehin was anderes und dann das noch dazu und das noch, das noch wäre auch nich schlecht ... und eh du dich versiehst hilfst auch du Leuten bei DP mit ihren Problemen ...

[Harlicon]

Jau da haste Recht.
Meinte dann als ich Feierabend hatte am Freitag "BliBlaBlo... ach und den Vorschlag für das Auslesen findeste da und da, ich schreib das dann am Montag fertig"

Chef: "Ne machst du nicht, hab sowas eh zu Hauf aus anderen Projekten auf der Platte"

Ääääähhhh na danke *grummel* dafür macht man sich nen Kopf