komische Sachen mit einer MYSQL - Datenbank

[Chewie]

Du liest alles ein, bis du auf die Zeichen #13#10 triffst, also z.B. so:

Code:

function GetFirstLine(BigString: String): String;
var
  a: LongInt;
begin
  a := 1;
  Result := '';
  while a <= Length(BigString) do
  begin
    if BigString[a] <> #13 then Result := Result + BigString[a]
    else if BigString[a+1] = #10 then break;
  Inc(a);
  end;
end;

Ist getestet, sollte funktionieren.

Nachtrag: Du kannst das ganze natürlich auch in ein TStrings-Feld kopieren, aber das ist dann ja auch nicht anders als beim Memo, nur dass man es nicht auf der Oberfläche sieht.

[theomega]

gut, danke, funzt

[Christian Seehase]

Moin Zusammen,

das kann man allerdings auch etwas einfacher haben:

Code:

sResult := copy(sBigString,1,pos(#13#10,sBigString)-1);

Um sicherzustellen, dass man auch dann ein Ergebnis erhält, wenn der Ursprungstext nur eine Zeile enthält:

Code:

sResult := copy(sBigString,1,pos(#13#10,sBigString)-1);
[b]if[/b] sResult = '' [b]then[/b]
[b]begin[/b]
  sResult := sBigString;
[b]end[/b];

Nicht daran zu denken, dass eine Textdatei eventuell auch unmittelbar mit dem letzten Zeichen der letzen Zeile enden kann, und diese somit nicht mit einem Zeilenendekennzeichen endet, war schon bis zum erscheinen von Windows 2000 fest implementiert.
Wenn man da eine Regdatei importieren wollte, bei der in der letzten Zeile kein #13#10 am Ende steht, wurde diese Zeile einfach ignoriert.
Das sind Fehler, da kann man suchen bis man schwarz wird.